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D ieses kleine Buch wurde geschrieben, um Sie mit 
interessanten und lohnenden Programmen zu ver¬ 
sorgen, vom allerersten Tag an, an dem Sie Ihren Com¬ 
puter bekommen. Die Programme reichen von ein¬ 
fachen Spielen, die wenig Geschicklichkeit erfordern 
bis zu sehr komplexen »intelligenten« Programmen wie 
Dame oder Mühle. Es gibt auch einige Programme, die 
die immensen mathematischen Fähigkeiten des ZX81 
demonstrieren, beispielsweise Programme, die Sinus¬ 
kurven plotten, Daten sortieren, die Wurzeln von Qua¬ 
dratgleichungen ausarbeiten und berechnen, wieviel 
Zinsen Sie für einen Kredit bezahlen müssen. 

Die Programme sind nicht nur für sich selbst wertvoll, 
sondern demonstrieren auch bestimmte Funktionen 
des ZX81. Ich glaube, der beste und unterhaltsamste 
Weg, sich mit Computern zu befassen ist, mit ihnen zu 
spielen, Funktionen auszuprobieren, die Programm- 
listings zu untersuchen und zu entdecken, wie und 
wamm der Computer in diesem Programm so und 
nicht anders arbeitet, ln weiterer Folge verändern und 
verbessern Sie die Programme, sodaß sie Ihre eigenen 
werden. 

Alle Programme in diesem Buch laufen ohne Ver- 
ändemng des ZX81. Viele von ihnen laufen auf einem 
mit neuem ROM ausgestatteten ZX80 genauso wie 
aufgelistet. Andere brauchen die Eingabe eines Strings 
(in der Form INPUT A $, manchmal auch gefolgt von 
einem CLS-Befehl als nächste Zeile), um den Ablauf 
lang genug anzuhalten; um zu sehen, was geschieht. 
In anderen kann zu diesem Zweck eine PAUSE-Funk- 
tion benutzt werden. Sie werden sehen, daß es einfach 
ist, die notwendigen Ändemngen durchzuführen. 
Wenige (sehr wenige) der Programme laufen nicht 
mit dem neuen ROM. 

Sie werden manchmal in Programmen das sehr ei¬ 
genartige Symbol # bemerken. Versuchen Sie NICHT, 
dieses einzugeben. Es steht für einen einzelnen Zwi¬ 
schenraum, wenn dieser Zwischenraum unbedingt 
notwendig und nicht aus dem Zusammenhang er¬ 
sichtlich ist. Der benötigte Speicher für jedes Programm 
ist entweder angegeben (wenn 1K angegeben ist, be- 


deutet das, daß dieses Programm in einen ZX81 ohne 
jede Erweitemng paßt) oder nicht (wenn Sie voraus¬ 
setzen können, daß dieses Programm mehr als 1 K 
braucht, obwohl viele Programme gekürzt werden 
können und so in eine 1 K-Maschine passen). 

Wie Sie wissen, können Sie inverse Buchstaben (das 
bedeutet weiß aut schwarzem Hintergrund) direkt von 
der Tastatur aus eingeben. Bei den Programmen in 
diesem Buch können Sie jeden PRINT-Gegenstand, 
den Sie wollen, invertieren. Aber dort, wo ich glaube, 
daß es besonders notwendig ist, habe ich die ent¬ 
sprechenden Buchstaben unterstrichen. 

50 PRINT »SIE HABEN GEWONNEN« 

Sie werden bemerken, daß inverse PRINT-Zeilen 
manchmal leichter zu lesen sind, wenn sie einen 
invertierten Zwischenraum an Anfang und Ende der 
Zeichenkette setzen. 


Tim Hartneil, Oktober 1981, London 


WICHTIGER HINWEIS! 

Die Programmlistings in diesem Buch wurden wegen 
der besseren Lesbarkeit mit einem Normalpapier¬ 
drucker ausgedmckt. Nur die Gratikzeichen wurden in 
die Listings einmontiert. 

Das Zeichen # in den Programmen, wie auch im Text 
beschriebea steht für 1 Zwischenraum. 

Unterstrichene Angaben in den Programmen bedeu¬ 
ten inverse Buchstaben (weiß auf schwarzem Hinter¬ 
grund); Sie können jeden PRINT-Gegenstand in diesem 
Buch invertieren. 

Eine Null wird in diesem Buch so dargestellt; 0 
und das Multiplikationszeichen sieht so aus: ^ 
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Fehlercodes 

%X# %^# %x^ %i# %x# %x# %x^ ^x# ^x^ %x^ 

D ie Fehlercodes 0—9 kommen sowohl beim ZX80 
als auch beim ZX81 vor, die Fehlercodes A—F nur 
beim ZX81 (und beim ZX80 mit neuen ROM). 


Codebedeutungen 


CODE0 ... 

erfolgreiche Beendigung 

CODE 1 ... 

NEXT ohne FOR 

CODE 2 ... 

Variable wurde nicht definiert 

CODES ... 

Der Index befindet sich außerhalb des 
erlaubten Bereiches 

CODE 4 ... 

Speicherplatz vollständig belegt 

CODES ... 

Bildschirm voll 

CODE 6 ... 

Arithmetischer Überlauffehler 

CODE? ... 

Return ohne GOSUB. 

CODE 8 ... 

INPUT wurde versucht als Kommando 
einzugeben, das ist verboten. 

CODE 9 ... 

Stop-Befehl ausgeführt 

CODEA ... 

Nicht erlaubtes Argument für be¬ 
stimmte Funktionen 

CODEB ... 

Zahl außerhalb eines zulässigen 
Bereiches 

CODEC ... 

Der Text des Argumentes von VAL 
ergibt keinen gültigen numerischen 
Ausdruck. 

CODED ... 

Programm wurde mit BREAK 
unterbrochen 

CODEE ... 

wird nicht verwendet 

CODEF ... 

Sie haben eine Leerkette als Programm¬ 
name benützt, das ist nicht zulässig. 
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^ 1 # % 1 ^ ^ 1 # 

^l> ^l> 

»Erste Schritte« 

%X# wi> wf^ w|> 


B eginnen wir, indem wir den ZX81 anstecken, um 
den Cursor (das ist das weiße K in einem kleinen 
schwarzen Kästchen) in die linke untere Ecke Ihres 
Fernsehers zu bekommen. 

Geben Sie das folgende Programm ein, das eine Serie 
von Zufallszahlen zwischen 1 und 10 generiert. Be¬ 
achten Sie, daß das #' einen Zwischenraum in einem 
PRINT-Gegenstand bedeutet. Wir werden dieses Sym¬ 
bol in Programmen verwenden, wenn der Zwischen¬ 
raum notwendig und nicht aus dem Zusammenhang 
ersichtlich ist. 


10 SLOM 

20 PRINT INT <RND:f.l0HlJ "#"j 
30 RUN 


Xl> !h i’äl.u,, 


Dieses Programm ergibt einen Bildschirm voll mit 
zufällig erzeugten Zahlen zwischen 1 und 10. So wie 
sie sind, haben diese Zahlen keinen großen Nutzen, 
bekommen ihn aber, wenn sie als Teil eines Spieles 
verwendet werden. Das folgende Programm verwen¬ 
det den Zufallszahlengenerator, um Zahlen zwischen 
1 und 6 für das Spiel »Russisches Roulette« zu erzeugen. 
Beachten Sie, daß Sie nur 1 K Speicher für dieses Spiel 
brauchen, sodaß Sie kein Zusatzmodul anstecken 
müssen. Auch der Standard-ZX81 kann sich dieses 
Programm merken. 

Das Prinzip von Russischem Roulette ist einfach. Sie 
haben eine Pistole mit 6 Kammern, doch nur eine ent¬ 
hält eine Patrone. Sie halten die Pistole an Ihren Kopf, 
ziehen am Abzug und ... entweder »Peng« oder »Klick«. 
Geben Sie das Programm ein, lassen Sie es einige 
Male laufen, nehmen Sie dann wieder das Buch zur 
Hand für eine Erklämng der Dinge, die Sie aus diesem 
Programm lernen können. 

10 PRINT "WIE HEISSEN SIE?" 

30 INPUT FIS 

50 PRINT "WOLLEN SIE SPIELEN.." 
jflSj"?" 

60 INPUT BS 
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70 CLS 

80 IF 8*="HEIN" THEN GOTO 270 
90 LET J=0 

100 PRINT "DREUCKEH SIE N/L" 
110 IHPUT 0$ 

120 CLS 

130 LET J=.J+1 

140 LET G=INT ':;RND#6>+1 

170 IF G<6 THEN PRINT "KLICK" 

190 IF G=6 THEN GOTO 220 

200 IF J=10 THEN GOTO 250 

210 GOTO 100 

220 CLS 

230 PRINT "BUm..."; 

240 GOTO 230 

250 PRINT fl*.i "#UEBERLEBT#",i 
260 GOTO 250 
270 CLS 

280 PRINT "FEIGLING."j 
290 GOTO 280 


Es gibt eine unglaubliche Anzahl von nützlichen Din¬ 
gen, die Sie aus diesem ersten Programm lernen kön¬ 
nen. 

Zunächst sehen Sie, daß jede Zeile mit einer Zeilen¬ 
nummer beginnt. Beim ZX81 können diese Zeilennum¬ 
mern zwischen 1 und 9999 liegen, aber Sie werden her¬ 
ausfinden, daß es am besten ist, wenn Sie mit Viel¬ 
fachen von 10 arbeiten, weil Sie so auch später noch 
Zeilen einfügen können. 

Zusätzliche Zeilen sortieren ;sich selbst in die richtige 
Reihenfolge und der Computer arbeitet alle Zeilen je¬ 
weils von der niedrigsten zur höchsten Nummer ab, 
solange nicht das Programm befiehlt, zu einer an¬ 
deren Zeile zu springen. Nach der ersten Zeilennum¬ 
mer haben wir das Wort PRINT, wahrscheinlich die 
meistbenützte Anweisung in der Computersprache 
BASIC, der Sprache Ihres ZX81. An das Wort PRINT 
schließen Sie das »Wort« an, von dem Sie wollen, daß 
es der ZX81 ausdmckt. In diesem Fall sind es die Worte 
»IHR NAME«. 

Versuchen Sie vor die ersten Anfühmngszeichen ein 
Kommazeichen zu setzen, sodaß die Zeile 10 nun lau¬ 
tet: 10 PRINT, »IHR NAME?«. 

Lassen Sie das Programm wieder laufen und Sie wer¬ 
den bemerken, daß der ZX81 die Worte über den Bild¬ 
schirm bewegt hat. Der Gebrauch des Kommas ist 
ideal, um PRINT-Gegenstände in Kolumnen anzuord¬ 
nen (genauso ist es ideal, um langweilige Zahlen¬ 
tafeln auszudmcken). Der Computer stoppte, als er zur 
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Zeile 30 (INPUT A $) kam. Dieses A $ (ein Buchstabe, 
gefolgt von einem Dollar-Zeichen) heißt in der Com¬ 
putersprache BASIC String und kann jede Kombi¬ 
nation von Buchstaben, Zeichen und Zahlen sein. Für 
den Anfang werden wir bei Buchstaben bleiben. 
Der Computer stoppte also und wartete auf eine Ein¬ 
gabe — Ihren Namen. Nachdem Sie Ihren Namen 
eingetippt und NEWLINE gedrückt hatten, sodaß es 
der Computer akzeptieren konnte, verstand der Com¬ 
puter, was A $ bedeuten sollte und verwendete es, 
wie Sie ja sicher auch bemerkt haben, das nächste¬ 
mal, als A $ im Programm vorkam, um Ihren Namen 
auszudmcken. 

Als nächstes fragte Sie der Computer, ob Sie spielen 
wollen (Zeile 50) und akzeptierte einen zweiten 
String (B $) in Zeile 60 als Ihre Antwort. Zeile 70 (CLS) 
löschte den Bildschirm, aber erlaubte dem ZX81 nicht, 
den Inhalt von B $ zu vergessen. 

Der ZX81 kann wie alle Computer Entscheidungen 
treffen und danach handeln. In diesem Fall kontrolliert 
er in Zeile 60 Ihre Antwort (B $) und springt im Falle, 
daß die Antwort NEIN ist (d.h. B $ = »NEIN«) zu Zeile 270, 
die den Bildschirm löscht. 

Anschließend geht der ZX zur Zeile 280, wo das Wort 
»Hühnchen« ausgedruckt wird. Zeile 290 läßt den ZX81 
zu Zeile 280 zurückspringen, immer und immer wieder, 
so lange, bis der Bildschirm voll ist und das Programm 
stoppt. 

Sie werden sehen, daß das Wort »Hühnchen« auf dem 
Bildschirm ein recht attraktives Muster ergibt und 
wenn Sie etwas experimentieren wollen, nachdem Sie 
diesen Absatz gelesen haben, verwenden Sie eine 
ewige Schleife und einige graphische Symbole in 
einem PRINT-Befehl, um den Bildschirm mit Mustern 
zu füllen. 

Aber wieder zurück zum Russischen Roulette. Wenn 
Sie auf die Frage, ob Sie spielen wollen, nicht mit NEIN 
antworten, fährt der Computer zu Zeile 90, wo der 
Variablen J der Wert 0 zugewiesen wird. 

Im SINCLAIR-BASIC kann jedem Buchstaben oder 
jeder Buchstabenkombination oder jeder Zahlen¬ 
kombination, der ein Buchstabe vorangestellt wird, 
ein Wert zugewiesen werden. Zeile 90 könnte also 
Z.B. lauten LET SUM= 0 oder LET P Q = 0. Sie befolgen 
also nun die Anweisung, die mit Zeile 100 ausge- 
dmckt wird (Drücken Sie NEWLINE) und der Bildschirm 
wird jetzt wieder gelöscht (Zeile 120). Zeile 130 addiert 
1 zum Wert von J, sodaß J nun den Wert 1 hat. Das 
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nächstemal, wenn das Programm durchlaufen wird, 
wird wieder 1 hinzugezählt, also wird J den Wert 2 
haben usw. 

Zeile 140(LETG=INT(RND *6)+l) verwendet natürlich 
den Zufallszahlengenerator. 

Zeile 170 trifft eine andere Entscheidung. Die Art dieser 
Anweisung wird IF/THEN-Anweisung genannt, dies 
wegen ihrer Form IF (wenn) ein Ereignis eintrifft, 
THEN tue das und das (wenn der Reifen flach ist, dann 
pumpe ihn auf). Die Bedingung kann sehr vielfältig 
sein, von IF X=96 über IF A $ = »Frosch« bis zu kompli¬ 
zierteren Bedingungen wie IF A—B=2 * E—Y/4 
THEN... 

In diesem Fall überprüft die IF/THEN-Anweisung, 
ob der Zufallszahlengenerator eine Zahl kleiner als 6 
generiert hat und für den Fall, daß dies eintritt, wird 
KUK ausgedmckt. Für den Fall, daß das nicht zutrifft, 
sucht der ZX81 das komplette Programm ab, Zeile für 
Zeile, so lange, bis er etwas findet, was er tun kann. 
Wenn G=6 ist (Zeile 190), wird die Zeile 270 bear¬ 
beitet, die eine ähnliche Methode benutzt, wie wir 
sie vorher besprochen haben, als es darum ging, das 
HÜHNCHEN auszudmcken. In diesem Fall wird das 
fatale Wort PENG ausgedmckt. 

Unter der Voraussetzung, daß G kleiner als 6 ist, wird 
der Computer in Zeile 170 KLIK ausdmcken, Zeile 
190 ignorieren und dann zu Zeile 200 kommen. 
Wenn er dort ankommt, wird er überprüfen, welcher 
Wert J zugeordnet wurde. Wenn J gleich 10 ist, ist das 
Spiel gewonnen, also wird der Computer zu Zeile 
250 gehen, um Ihnen das mitzuteilen. Wenn C noch 
nicht gleich 10 ist, ignoriert der Computer die Zeile 
20 0 und findet dann in Zeile 210 eine Anweisung, 
die er ausführen kann und geht dann zurück zu Zeile 
100. Nachdem Sie diese etwas verwirrende Erklä- 
mng einige Male gelesen haben und sich selbst einige 
Male mit NEWLINE erschossen haben, würde ich Sie 
bitten (bevor Sie schummeln und lesen, wie ich es 
gemacht habe), einige Zeilen hinzuzufügen oder zu 
ändern, sodaß das Programm den Spieler zu einem 
neuen Spiel einlädt, wenn er das erste Spiel überlebt 
hat, ohne daß RUN eingegeben werden muß. 
Nachdem Sie Ihre eigene Version dieser Ändemng 
gemacht haben — und es gibt eine große Anzahl an 
Möglichkeiten — lesen Sie bitte weiter und sehen Sie, 
wie ich es gemacht habe. Die wahrscheinlich ein¬ 
fachste Möglichkeit ist, folgende Zeile hinzuzufügen. 

253 PRIHT "NOCHEINMRL?" 
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Zeile 260 müssen Sie dann in GOTO 60 ändern. Wenn 
Sie dies tun, verwenden Sie die Routine der Zeilen 
60, 70 und 80 zweimal. Sie können das Programm 
auch anders geändert haben. Es ist gleichgültig, wel¬ 
che Ändemngen Sie gemacht haben, solange sie 
das gewünschte Ende bewirken. Es gibt eine andere 
Möglichkeit, mit der man den gleichen Effekt er¬ 
zielen kann: Der Einsatz einer Subroutine. 

Immer dann, wenn der Computer zu einem GOSUB 
(GOtoSUBroutine) kommt, springt er zur angegebenen 
Zeile und macht dort so lange weiter, bis er zum Kom¬ 
mando RETURN kommt. Der Computer geht dann zur 
Zeile NACH dem GOSUB-Kommando zurück. Machen 
Sie die folgenden Ändemngen bei Ihrem Russischen 
Roulette-Programm und der Sachverhalt wird Ihnen 
klarer werden. 

300 INPUT B$ 

310 CLS 

320 IF B®="NEIN" THEN GOTO 270 
330 RETURN 

Wenn Sie das Programm ablauten lassen, wird der 
Computer jedesmal zur Subroutine geschickt, wenn er 
zur Zeile 60 oder 260 kommt. 

Hier ist ein anderes Programm mit dem Namen BEAT 
THE DEALER, in dem eine Subroutine (mit Start bei Zeile 
300) über Ihr Geld buchführt und eine zweite (mit 
Start bei Zeile 400) zwei Würfel rollen läßt. 

BEAT THE DEALER beginnt damit, daß der ZX81 zwei 
Würfel wirft. Die Summe der beiden Würfel wird ge¬ 
speichert. Als nächstes wirft der Mensch die Würfel. 
Wenn die Gesamtsumme des Menschen größer ist 
als die des ZX81, gewinnt der Mensch 5.50 Pfund und 
der Computer verliert die gleiche Menge. Für den Fall, 
daß der Punktestand des Menschen der gleiche ist 
oder kleiner als der des ZX81, bekommt der Computer 
die 5.50 Pfund und der Mensch verliert diesen Betrag. 
Nach einigen Runden wird Ihnen das klar werden 
und wenn Sie das Programm in Aktion gesehen ha¬ 
ben, werden Sie viel besser verstehen, was eine Sub¬ 
routine tut. 

10 LET M>»30 
20 LET N=M 
30 LET Z=5.5 
40 GOSUB 300 
50 GOSUB 400 
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60 LET C=R+B 
65 SCROLL 
70 PRINT "ICH^";flj 
80 INPUT R$ 

90 GOSUB 400 
100 LET D*R+B 
105 SCROLL 

110 PRINT "SIE* "jRj •'#"jB.D 

120 IF D>C THEN GOTO 160 

130 LET M«ri-2 

140 LET N*N+Z 

150 GOTO 40 

160 LET ri*M+2 

170 LET N=N-2 

180 GOTO 40 

300 SCROLL 

310 SCROLL 

320 PRINT "SIE $";M."ICH $"jN 
330 INPUT R$ 

340 RETURN 

400 LET R=INT (RND*-*:6H1 
410 LET B=INT <RND#6H1 
420 RETURN 
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^i/^ ^i/^ ^ 1 ^ ^ 1 ^ ^ 1 # 

^|> ^|> 

Ernsthafte 

Anwendungen 

ej^ ej^ *Ji^ *A* ^1/^ *X* S|^ ej^ 

1^ ^|i 

S INCLAIR Research hat dem ZX8I viele nützliche 
Funktionen gegeben, die auf dem ZX80 unmög¬ 
lich waren. Dieses Kapitel betrachtet einige der neuen 
Möglichkeiten. 

Hier ist eine Anzahl von kurzen Programmen — ge¬ 
schrieben von Tony Baker — die die Graphik-Fähig¬ 
keiten des ZX81 demonstrieren. Lassen Sie diese im 
SLOW-MODE laufen. 


-Oval- 

10 FÜR Fl=l TO 100 
20 LET B=P r.+:R/50 
30--PRINT RT 9:+:C0S B+10, 14:+:SIN 
B+15.; "#." 

40 HEXT R 


—Überlappende Spiralen 

10 FÜR R=1 TO 400 
cxQv 20 LET B=Pl:+:R/50 

30 LET C=>:: 400-R ;:'/400 
^'Q 40 PLOT •:; 20.5:*:C0S B+30 ’)tC .. •:; 20:+: 

SIN B+20>:+:C 
50 NEXT R 


—Spirale, Plot/Unploi 

5 FÜR D=1 TO 2 
10 FÜR X=1 TO 400 
15 IF D=1 THEN LET R=X 
1? IF D=2 THEN LET R=400-X 
20 LET i::=':: 400-R >/400 
25 LET B=PI:+:R/50 
30 IF D«1 THEN PLOT < 20- S^^'-COS 
B ::':+:C+30.. < 20:+:S IN B ::':+:C+20 

35 IF D=2 THEN UNPLOT <20-5:+:CO 
S B>:+:C+30..'::20:+:SIN B >5}^C+20 
40 NEXT X 
50 NEXT D 
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-Sinuskurven 

. 10 FÜR Fl=2 TG 120 

I . 20 LET B=R:1^PI/30 

•>r) ! 30 PLOT R/2.SIN B:+:20+20 

■ 40 NEXT R 


-Doppelsinuskurve 

5 FÜR C=1 TG 2 
10 FOR R=2 TO 120 
15 IF C=1 THEN LET B=R:*:PI/60 
20 IF C=2 THEN LET B=-R-;^:P 1^-60 
25 PLOT R.-^2.SIN B‘^20+20 
30 NEXT R 
35 NEXT C 


-^Sin/Cos 

10 FGR R=2 TO 120 
/ 20 LET B=R:*:PI/60 

1/ 30 PLOT R/2.SIN B*4:20+20 

^ ko ^ 40 PLOT R/2.C0S B‘4^20+20 

50 NEXT R 


-Fallende Sinuskurven 

5 Din S<4> 

10 FOR Z=1 TO 8 

15 FOR R=1 TO 120 

20 LET S>::i>=SIN < R?^:P I/60 >:+:20-+-2 

0 

25 LET S<2>=C0S < R4:PI/60 ■/^:20+2 

0 

30 LET S-:: 3 >=40~S':: 1 > 

35 LET S< 4 >=40-8':: 2 > 

40 LET J=2-INT < Z.-^4 >:1=:4+1 
45 LET K=Z+3-INT O:! Z+2 ::'.--4 >:+:4 
50 UNPLOT R..--2.S'r. J> 

60 PLOT R/2.. S'^K::« 

65 NEXT R 
70 NEXT Z 


-Plot-Demonstration- 

Sie können einige dieser Programme Zusammen¬ 
hängen, wenn Sie genug Speicherplatz haben, und 
so ein eiiektvolles Demonstrationsprogramm erhalten. 
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10 FOR R=1 TO 100 
20 LET B=Pr4cR/50 
30 PRINT RT 9:+:C0S B+10, 14:t:SIN 
B+15J "J." 

40 HEXT R 
50 PRUSE 200 
60 CLS 

70 FOR R=1 TO 400 

80 LET B=Pr;^R/-50 

85 LET C=<400--R>/400 

90 PLOT <20.5:+:COS B+30 < 205^: 

SIN B+20>:+:C: 

100 NEXT R 
110 PRUSE 200 
120 CLS 

130 FOR R=2 TO 120 

140 LET B=R5f:PI/30 

150 PLOT R.-''2.SIN B:*:20+20 

160 NEXT R 

170 PRUSE 200 

180 CLS 

190 FOR C=1 TO 2 

200 FOR R«=2 TO 120 

210 IF C=1 THEN LET B=R5^.PI/60 

220 IF i:;=2 THEN LET B=“-R-*PI/60 

230 PLOT R/2.SIN B>^:20+20 

240 NEXT R 

250 NEXT C 

Wenn Sie eine ununterbroche Demonstration wollen, 
fügen Sie folgende Zeilen hinzu: 

260 PRUSE 200 
270 CLS 
280 RUN 


-Multiplikdtionsquiz- 

Der ZX81 kann benutzt werden, um Zahlenquizzes zu 
erzeugen und die Antworten des Benützers zu über¬ 
prüfen. 


10 LET 2=0 
20 GOSUB 460 

30 PRINT TRB 4;"MULTIPLIKATION 
STEST" 

40 GOSUB 460 

50 PRINT "SCHWIERIGKEITSGRAD < 
1 - 10 >?" 

60 INPUT A 

70 IF A<1 OR A>10 THEN GOTO 60 
100 GOSUB 460 

110 PRINT "WIE VIELE AUFGABEN?" 
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120 IHPIJT B 

130 IF B<1 THEN GOTO 128 
140 CLS 

150 FOR G=1 TO B 

160 LET C=flJ^INT <RND#10>+1 

170 LET D=R5^:INT < RHD5l^ 10 ::•+1 

180 LET E=C?I^D 

190 G08UB 460 

200 PRINT "RUFGflBE NR.%'G 

210 GOSUB 460 

220 PRINT "WIEVIEL GIBT#" j C.! "#M 
230 INPUT F 
240 PRINT ••####".; F 
250 GOSUB 460 
260 IF FöE THEN GOTO 420 
270 PRINT "FRLSCH.DRS ERGEBNIS 
IST#".iE 
280 GOSUB 460 

290 PRINT TRB 8;"IHR STRND IST# 
" jZ 

300 PRINT TRB 9;"RICHTIG VON#"; 

Li 

310 PRINT "DRUECKEN SIE N/L#"; 
320 IF NOT G=B THEN PRINT "UM W 
EITER2U-###MRCHEN" 

330 INPUT R» 

340 CLS 
350 NEXT G 
360 FOR K=1 TO 3 
370 GOSUB 460 
300 NEXT K 

390 PRINT "ENDE DES TESTS,IHR S 
TRND IST" 

400 PRINT TRB 8; INT (.Ztim-XQ-X 
>);"#PROZENT" 

410 STOP 
420 LET Z=Z+1 

440 PRINT "RICHTIG,DRS ERGEBNIS 

IST#";E 

450 GOTO 280 

460 FOR S=1 TO 3 

470 PRINT 

480 NEXT S 

490 RETURN 




































































































-Quadrate- 

(Demonstration von SCROLL) 

Das nächste Programm zeigt die SCROLL-Funktion 
in der Anwendung: 

10 LET K=0 
20 GOSUB 220 

30 PRINT TRB 8;"QURDRRTE” 

40 GOSUB 220 

50 PRINT TRB 6.i "BEGINNZRHL?" 

60 INPUT R 
70 GOSUB 220 

80 PRINT TRB 6;"ENDZRHL?" 

90 INPUT B 
100 GOSUB 220 

110 PRINT "DRUECKEN SIE N/L FUE 
R DIE".. "TRBELLE'* 

120 INPUT Fl$ 

130 CLS 

140 FÜR X=R TO B STEP (1 RND R< 

B)--:;! RND R>B> 

150 LET K=K+1 

160 IF K>22 THEN SCROLL 

170 PRINT TRB 4; X.? "#QURDRIERT I 

180 NEXT X 

185 IF K>20 THEN SCROLL 
190 PRINT 

195 IF K>20 THEN SCROLL 
200 PRINT TRB 8.5 "ENDE DER TRBEL 
LE" 

210 STOP 

220 FOR C«1 TO 3 
230 PRINT 
240 NEXT C 
250 RETURN 

Variable K tungiert als Zählvariable, um das SCROLLen 
zu starten, wenn der Bildschirm beinahe voll ist. Sie 
können diese Methode benutzen, wenn die Pro¬ 
grammausgabe sequentiell erfolgt und länger als 
eine Bildschirmseite voll ist, sodaß die Gefahr eines 
Programmabsturzes besteht. 

-Tabelle und Graph- 

Die r^ächste kleine Routine erzeugt eine Werte-Ta- 
belle in Übereinstimmung mit der Formel, die Sie in 
Zeile 90 plazieren und zeichnet dann den Graphen. 
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Sie können leicht auf den Ausdmck verzichten, wenn 
Sie die Zeilen 130 bis 160 löschen Sie werden auch mit 
dem verwendeten Maßstab experimentieren müssen, 
um den effektvollsten Ausdruck Ihrer Formel zu er¬ 
halten. 

10 PRINT "NIEDRIGSTER WERT 
UM ZU".. "FLOTTEN?" 

20 INPUT R 

30 PRINT fl."HOECHSTER?" 

40 INPUT B 
50 CLS 
60 DIM CXB'? 

70 FÜR D=fl TO El 
80 SCROLL 

90 LET C<D>= IHRE FORMEL 
100 PRINT D.C<D> 

110 HEXT D 
120 PAUSE 300 
130 CLS 

140 FOR D>=fl TO B 
150 PLOT D.C<D> 

160 NEXT D 

Testen Sie dieses Programm mit A=1 und B = 60 unter 
der Verwendung der folgenden Formel: 

UET C(D)=SO*COS D 
UET C (D) =D^e^D/100 
LET C(D)=:5^^SOR D 


-Artithmetischer- 

-Durchschnitt- 

Dieses Programm akzeptiert eine Serie von Zahlen 
und arbeitet dann ihren Durchschnitt aus. Es ver¬ 
wendet die Formell 


N 



i=l 


10 LET C=0 

20 PRINT "WIE VIELE ZRHLEN WOL 
LEN SIE"."EIHGEBEH?" 

30 INPUT fl 
35 SCROLL 
40 POR B=1 TO Fl 
50 SCROLL 
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60 PRINT •‘ZRHL#%B; ”#?" 

70 IHPUT D 
30 SCROLL 

90 PRINT D."NOCH#"jR-B 
100 LET C:=C+D 
110 NEXT B 
120 CLS 

130 PRINT "GESRMT WRR#"iC 
140 PRINT 

1S0 PRINT ”DURCHSCHNITT IST:"J < 

INT <C/-R >5^:100)/100 

Zeile 150 sorgt dafür, daß der Durchschnitt auf höch¬ 
stens zwei Dezimalstellen berechnet wird. Ändern 
Sie die 10 0 auf 10 für eine Dezimalstelle, auf 10 0 0 
für drei usw. 


-Data Sort- 

Das Programm sortiert bis zu 10 0 Zahlen in abfallende 
Reihenfolge. Geben Sie die Zahlen (positiv und/oder 
negativ) nacheinander ein, wie verlangt. Wenn Sie 
wollen, daß sie der ZX81 von der höchsten bis zur nied¬ 
rigsten Zahl sortiert, geben Sie 0 ein. 

5 DIM QU10> 

10 LET Z=0 
20 LET Y=10 
30 SCROLL 

35 PRINT "GEBEN SIE ZflHL#".iZ-H 
1 "#EIN- 


40 

INPUT Q<Y> 


50 

IF Q<Y>»0 THEN GOTO 100 

60 

LET 2=2+1 


70 

PRINT Q<Y> 


80 

LET Y=Y+1 


90 

GOTO 30 


100 

CLS 


110 

FOR X=10 TO : 

2+6 

120 

FOR N=X+1 TO 

2+9 

130 

IF Q<X>>Q<N> 

THEN GOTO 170 

140 

LET E=Q<X) 


150 

LET Q<X>=Q<N 

> 

160 

LET Q<N>=E 


170 

NEXT N 


180 

NEXT X 


190 

FOR N«1 TO 2 


200 

SCROLL 


210 

PRINT N.QCN+S) 

220 

NEXT N 
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—Quadratische Gleichung— 

ax2+bx+c= 0 (aK0) 

x=-b±'l/b^4ac 

2a 

Beide Wurzeln werden ausgedruckt wenn es zwei 
echte Wurzeln gibt eine Wurzel wenn die beiden 
Wurzeln gleich sind und sowohl der echte als auch 
der imaginäre Teil von imaginären Wurzeln Es ist 
leicht am Ausdmck zu sehen, welche Wurzeln aus¬ 
gedruckt werden. 


5 

10 

15 

20 

25 

30 

35 

40 

45 

50 

55 

60 

65 

70 

75 

E 

80 

200 

210 

300 

310 

320 


PRINT "GEBEN SIE R EIN-*" 
INPUT X 

PRINT X. "GEBEN SIE B Elth" 
INPUT Y 

PRINT Y. "GEBEN SIE C EUh" 

INPUT Z 

CLS 

LET Y=-Y/2/X 
LET Q=Y*Y-Z/X 
IF Q==0 THEN GOTO 200 
IF Q>0 THEN GOTO 300 
LET E=SQR (-Q> 

PRINT "IMRGINRERE WURZELN ^" 
PRINT """ECHTE"" WURZEL:"JY 
PRINT "IMRGINRERE WURZEL:"; 

STOP 

PRINT "GLEICHE WURZELN:";Y 
STOP 

PRINT "ECHTE WURZELN " 

PRINT ..Y-fSQR Q 
PRINT ..Y-SQR Q 
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Standardabweichung, 
Durchschnitt, Varianz 


Das Varianzprogramm verwendet die folgenden 
Formeln: 

Ex - 

Durchschnitt = — =x 
n 


Varianz= 



_2 

x=V 


Standartabweichung= 


i 


V 


Um dieses Programm laufen zu lassen, geben Sie 
zuerst die Zahl und dann die Häufigkeit ein. Falls Sie 
einen Fehler machen, geben Sie xuerst den Buch¬ 
staben E, dann die Positionsnummer, bei der der 
Fehler gemacht wurde, ein. Sie können die Zeile dann 
neu eintippen. Sind alle Daten eingegeben, tippen 
Sie den Buchstaben Q, um die Berechnung zu starten. 

10 PRINT "EINGflBEttttttZRHLttttttttFR 
EQIJEN2” 

20 PR INT »mmmmmmmm w 

30 LET E«RHD 
40 LET Q=RHD 
50 DIM X<:50> 

60 DIM F<50> 

70 LET R=0 
80 LET B=0 
90 LET R=R+1 
100 LET B=B+1 
110 IF B>19 THEN SCROLL 
120 PRINT Rj 
130 INPUT X 

140 IF X=E THEN GOTO 210 
150 IF X=Q THEN GOTO 260 
160 LET X<:R>=X 
170 PRINT TRB 10; Xj 
180 INPUT F<R> 

190 PRINT TRB 21;F<R) 

200 GOTO 90 

210 LET B=sB+l 

220 IF B>19 THEN SCROLL 

230 PRINT TRB 0;"EINGRBE?” 

240 INPUT R 
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250 GOTO 100 
260 LET N=0 
270 LET fl=0 
280 LET B=0 
290 FOR Z=1 TO 50 
300 LET N=H4-F(2> 

310 LET R=R+F< Z Z ) 

320 LET B=B+F< Z Z Z > 

330 HEXT Z 
340 CLS 

350 PRINT RT 5.. 0J "DURCHSCHNITT' 

" .. .. .. R-'-N 

360 PRINT . .. " VRRIRNZ : " . . B/N-R:*: 

f\^< N:*:N > 

370 PRINT .. .. "STRNDRRDRBWEICHUNG 
: " , .. SQR < B/N~R'*R/-r. m\'\ > > 

Wenn Sie das Programm etwas aulmotzen wollen, 
um zu zeigen, daß es tatsächlich etwas tut, fügen Sie 
die folgenden Zeilen hinzu: 


295 PRINT RT 21.10.i"iCH DENKE " 
305 PRINT RT 21.10J"IChLDENKE " 
315 PRINT RT 21.10.; "ICH DENKE " 
325 PRINT RT 21.10;"ICH DE NKE " 


—Lösung von Gleichungen— 

Das folgende Programm kann benutzt werden, um 
jede Gleichung zu lösen, in der x = 0 ist. Das Programm 
dmckt auch die Lösungen, aut die es während der 
Berechnung stößt und die Abweichung aus. Es ist 
faszinierend, dem Programm bei der Arbeit zuzusehen. 
Die Lösung ist‘auf 9 Dezimalstellen richtig. 

Wenn Sie beispielsweise das x der Gleichung x^x— 
sin x= 0 finden wollen, würden Sie nach der Auffor- 
demng des Computers in Zeile 30 x * x—sin x ein¬ 
geben. Wenn Sie wissen, daß die Antwort, 'die Sie er¬ 
halten, zwischen 0,8 und 0,9 liegt, geben Sie diese bei¬ 
den Zahlen ein. Wenn Sie keine Vorstellung von der 
Lösung haben, geben Sie einfach zwei verschiedene 
zufällig gewählte Zahlen ein und überlassen Sie den 
Rest dem ZX81. 

Wenn Sie die Quadratwurzel einer Zahl finden wollen, 
geben Sie x * 3 minus der Zatü ein (z.B. x * 3—2,79, 
wenn Sie die dritte Wurzel von 2,79 wollen). Um Qua¬ 
dratwurzeln zu bekommen, geben Sie x ^ 2 minus 
der Zahl ein. 
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10 PRINT "VERVOLLSTRENDIGEN SI 
E DIESE"."GLEICHUNG RLS FUNKTION 
VON X:" 

20 PRINT "0="; 

30 INPUT ‘R$ 

40 PRINT R$ 

45 PRINT 

50 PRINT "BITTE GEBEN SIE ZWEI 
UNGLEICHE##ZRHLEN EIN.VON DENEN 
SIE" 

55 PRINT "GLRUBEN.DRSS DIE LOE 
SUNG DRZWI~#SCHEN LIEGT." 

60 INPUT R 
65 PRINT 
70 PRINT R. 

80 LET X=R 
90 LET F=VRL R$ 

100 IF FO0 THEN GOTO 130 

110 PRINT RT 13.3;"DRS ERGEBNIS 

IST".R 

120 STOP 

130 INPUT B 

140 PRINT B 

150 PRINT RT 10.5j"ERGEBNIS:" 
160 PRINT RT 11.5.* "FEHLER: " 

170 LET X*:B 
180 LET G=VRL R« 

190 PRINT RT 10.14jR 

200 PRINT RT 11.12.'RBS < G~F > 

210 IF RBS <F-G>>lE-9 RND GO0 
THEN GOTO 240 
220 LET R=:B 
230 GOTO 110 

240 LET X=( G:*:R~F:+:B G-F > 

245 LET F«G 
250 LET R=B 
260 LET B»X 
270 GOTO 180 
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-Zinsenberechnung- 

Der ZX81 kann auch für praktische Aufgaben einge¬ 
setzt werden. Das folgende Programm arbeitet aus, 
wieviel Zinsen für einen Kredit bezahlt werden müs¬ 
sen. Es akzeptiert die Länge der Kreditdauer in Tagen, 
aber wenn Sie herausfinden wollen, wie hoch die 
Zinsen bei einer Kreditdauer von mehreren Jahren 
sind, geben Sie die Anzahl der Jahre (z.B. 45) multi¬ 
pliziert mit 365 ein (das bedeutet, wenn der ZX81 nach 
der Länge der Kreditdauer fragt, geben Sie für 25 Jahre 
25 * 365 ein). Sie können das Programm aber selbst¬ 
verständlich auch so ändern, daß es die Eingabe in 
Jahren statt in Tagen akzeptiert. 

10 PRINT "PROZENTUELLE VERZINS 
IJNGSRRTE?" 

20 INPUT V 

30 PRINT V 

40 PRINT "STflMMKRPITflL?" 

50 INPUT S 

60 PRINT S 

70 PRINT "DRUER DES KREDITES I 
N TRGEN?" 

80 INPUT T 

90 CLS 

100 LET V=INT <S:+:T/36500:*:V+.9> 

110 PRINT "ZINSEN»";V 
120 PRINT 

130 PRINT "GESRMT 's K.RPITRL+ZINS 
EN > »";S+V 
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^If %l^ %1# 

Was tut man mit 1K? 

^1# %1# %X# %Jv w|> %t# w|> %i> ^|> %x# %x^ 


Viele ZX81 Anwender, die Erfahrung mit der Arbeit auf 
einem ZX80 haben, fühlen sich beengt durch den klei¬ 
nen Speicher, den sie mit einer 1K Maschine zur Verfü¬ 
gung haben. Durch eine Vielzahl von Gründen sind 1K 
auf dem ZX81 nicht so effizient wie die gleiche Spei¬ 
chermenge auf dem ZX80, unter anderem^ 

* Systemvariablen brauchen 125 Bytes auf dem ZX81 
und nur 40 beim ZX80. 

* Zeilennummern brauchen 3 Bytes beim alten ROM 
(2 für die Zeilenzahl, eine für das Ende der Zeile) und 
brauchen 5 Bytes beim ZX81. 

* Zahlen sind die großen Platzverschwender beim 
ZX81. Eine Zahl braucht die Anzahl ihrer Ziffern plus 1 By¬ 
te. Wie Sie sehen werden, ist es hinsichtlich des Spei¬ 
cherplatzes billiger, LET P=1 zu sagen und dann P statt 1 
zu verwenden, wenn Sie mehr als drei Mal die Ziffer 1 in 
Ihrem Programm haben. LET Q=P-f P ist billiger als LET 
Q=2. 

Sie können feststellen, wie viele Bytes Sie bei einem 
Programm verbraucht haben, indem Sie die folgende 
Zeile direkt eingeben; 

PRINT PEEK IBSSe+aSe^PEEK 16397- 
16509 

Es ist auch nützlich, die Zeile als Zeile 9999 einzugeben, 
sodaß Sie jederzeit die Anzahl der verbrauchten Bytes 
durch GOTO 9999 feststellen können. 

Geben Sie das folgende Programm ein und lassen Sie 


es laufen: 



10 

FOR R=1 TG 

RND:4^10+2 

20 

FÜR B«1 TO 

RND'4=:l0+2 

30 

FOR 0=1 TG 

RND:+:l0+2! 

40 

PRINT n:”j 


50 

HEXT C 


60 

PRINT 


70 

NEXT B 


80 

PRINT 


90 

NEXT fl 


9999 

PRINT PEEK 

16396+251 

6397~ 

“16509 
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Sie werden feststellen, daß es 206 Bytes benötigt. Nun 
geben Sie folgende Zeilen dazu 

5 LET D=10 

und ändern die 10 in den Zeilen 10, 20 und 30 in D 
und lassen Sie das Programm wieder laufen. Dieses 
Mal werden Sie feststellen, daß das Programm nur 201 
Bytes braucht, obwohl Sie eine Zeile hinzugefügt ha¬ 
ben. Nun, diese Ersparnis ist nicht sehr dramatisch, 
aber sie beweist, daß Speicher auf diese Weise gespart 
werden kann. Und das kann wichtig sein, wenn Sie an 
die Grenzen des Speicherplatzes vorstoßen. 

Als nächstes fügen Sie hinzu 

3 LET E=PI.-'PI 

4 LET F=E+E 

Dies weist E dem Wert 1 und F den Wert 2 zu und trotz 
des Umweges ist es das Rationellste. 

Gehen Sie noch einmal durch Ihr Programm und än¬ 
dern Sie alle Einser in E's und alle Zweier in S. Lassen 
Sie es wieder laufen und Sie sollten feststellen, daß das 
Programm jetzt nur noch 187 Bytes braucht, nun schon 
eine ganze Menge weniger als die 206, mit denen wir 
begonnen haben, obwohl drei zusätzliche Zeilen hin¬ 
zugefügt wurden. 

Trotz der Tatsache, daß nur 1 K eine Einschränkung be¬ 
deutet, können sehr lohnende Programme in sogar 
weniger als dieser Speichermenge geschrieben wer¬ 
den. Zum Beispiel das folgende Programm, das die 
Quadrat- und Kubikwurzeln jeder angegebenen Zahl 
berechnet — es braucht nur 154 Bytes inklusive der Zei¬ 
le 9999. 


10 

PRINT 

"ZPHL?" 

20 

INPUT 

Z 

30 

PRINT 

Z 

35 

PRINT 

"WURZEL?" 

40 

INPUT 

W 

50 

CLS 


60 

PRINT 

"DIE#";Wj"#TE WURZEL 

VON#' 

" jZ 


70 

PRINT 

"IST#";Z’^:*:< 1/W> 

9999 

PRINT 

PEEK 16396+2!56:t:PEEK 

6397- 

-16509 



27 


Um das Programm zu verwenden, geben Sie die ge¬ 
wünschte Zahl (beispielsweise 1000) und dann, 
wenn Sie dazu auigefordert werden, die gewünschte 
Wurzel ein (z. B. 3 für die Kubikwurzel). 

Weil jede Zahl in einem ZX-Programm Speicherplatz 
verbraucht, ist es sinnvoll, von Zeit zu Zeit eine Zeile fal¬ 
len zu lassen. Viele Programme enden mit Zeilen wie 
diesen; 

IF X>20 THEN PRINT "YOU UIN" 

IF X>20 THEN STOP 

Ein einfacher Weg, dies ohne die zweite Zeile zu errei¬ 
chen ist, einen Buchstaben, der noch nicht für eine Va¬ 
riable benutzt wurde, gleich nach die PRINT-Zeile zu 
stellen. Dies stoppt das Programm (mit einer Fehlermel¬ 
dung). Hier ist ein Beispielprogramm, das diesen Sach¬ 
verhalt klar machen sollte-. 

10 INPUT fl$ 

20 PRINT fl* 

30 IF fl»="S'‘ THEN PRINT "ENDE" 

40 IF fl*="S" THEN STOP 
50 GOTO 10 

Diese Version braucht.Bytes (arbeiten Sie es selbst 

aus mit der Hüfe von Zeile 9999). Nun geben Sie diese 
Version ein und überprüfen die Länge; 

10 INPUT fl* 

20 PRINT fl* 

30 IF 'Fl*="S" THEN PRINT "ENDE" 
jW 

50 GOTO 10 

Diese Version braucht.Bytes. 

Als Übung geben Sie das folgende Programm ein und 
lassen Sie es laufen, sodoß Sie sehen, was es tut (Sie ge¬ 
ben zuerst einen Einzelbuchstaben ein, dann NEWLINE, 
dann eine Zahl, dann NEWLINE, dann eine andere 
Zahl) und versuchen Sie dann, es so umzuschreiben, 
daß es weniger Speicherplatz verbraucht. 

10 INPUT fl» 

20 IF fl*="X" THEN STOP 
35 INPUT fl 
40 INPUT B 
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50 FOR C=1 TO R 
60 FOR D=1 TO B 
70 IF RHD>.6 THEN GOTO 100 
80 PRINT “i".« 

90 GOTO 110 
100 PRINT fl$; 

110 NEXT D 
120 PRINT 
130 NEXT C 
140 GOTO 10 

9999 PRINT PEEK 16396+256:t:PEEK 1 
6397-16509 


Lassen Sie es laufen und Sie v/erden feststellen, daß es 
218 Bytes benötigt. Nachdem Sie das Programm gekürzt 
haben, blättern Sie in diesem Buch weiter und sehen 
Sie, wie ich es gelöst habe: 

5 LET Z=100 
10 INPIJT fl* 

20 IF R$=”X'' THEN STOP 
35 INPUT R 
40 INPIJT B 
50 FOR C«Z/Z TO R 
60 FOR D=Z/Z TO B 
70 IF RND>.6 THEN GOTO Z 
80 PRINT 
90 GOTO Z+SQR Z 
100 PRINT R»; 

110 NEXT D 
120 PRINT 

139 NEXT C 

140 GOTO Z/PI 

9999 PRINT PEEK 16396+256:t:PEEK 1 
6397-16509 


Diese Version braucht 209 Bytes (mit der üblichen 
Zeile 9999 am Ende der beiden Prograrhme). Versuch¬ 
en Sie, es weiter zu kürzen. 

Im Buch »Probleme zur Computerlösung« von Donald 
D. Spencer wird ein Problem wie dieses gestellt: 

»Wenn fünf Vogelpaare je drei Eier ausbrüten, 
dann sterben, die verbleibenden 15 Vögel sich 
paaren und jeder der 15 Paare drei Vögel aus¬ 
brütet und dann stirbt usw. Wie viele Vögel wird 
es nach 5 Jahren geben?« 


Schreiben Sie ein Programm, um dieses Problem zu lö¬ 
sen und kommen Sie dann wieder zum Buch zurück, 
um zu sehen, wie ich es gelöst habe. 
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Im folgenden Beispiel habe ich die Namen der Varia¬ 
blen voll ausgeschrieben, d. h, ich habe eine Variable 
mit Namen »Vögel« verwendet und die Anzahl der Vö¬ 
gel zugewiesen, ebenso wie der Variablen »Jahr« die 
Anzahl der Jahre. Arbeiten Sie aus, wieviele Bytes Ihr 
Programm braucht, dann geben Sie meines ein, be¬ 
rechnen die Anzahl der Bytes und dann kürzen Sie das 
Programm, indem Sie die Variablennamen auf Einzel¬ 
buchstaben kürzen. Auf diese Weise werden Sie eine 
ganze Menge an Speicher sparen. 

5 LET .JflHR=0 
10 LET VOEGEL=10 
20 LET VOEGEL=IHT < V0EGEL.''2*3 ) 

30 LET .JflHR=.JflHR-H 
40 SCROLL 

50 PRINT ".JAHR#".1 JAHR;"###VOEG 
ELtt’üVOEGEL 

60 FOR P=1 TO 60 
70 NEXT P 
80 GOTO 20 


Unser nächstes Programmbeispiel, das bedeutend 
schwerer zu kürzen ist, heißt »Jumping Jackrabbit«. Der 
Hase (ein invertierter Zwischenraum) beginnt im Mittel¬ 
punkt eines 5 x 5-Gitters, das auf der Außenseite eines 
Zylinders gezeichnet wird, sodaß die rechte und die lin¬ 
ke Seite, nicht aber der obere und untere Rand gleich 
sind. Je ein Koyote, tötlicher Feind des Hasen, wartet 
am oberen und unteren Rand, um den Hasen, der 
nicht sehr hell ist, zu fressen. Stößt der Hase am oberen 
oder unteren Rand an, stoppt das Programm mit einer 
Fehlermeldung, um zu zeigen, daß der Hase gefressen 
wurde. Die Sprünge des Hasen sind zufällig, ein Käst¬ 
chen pro Sprung. Sie werden entdecken, daß dies ein 
sehr faszinierendes Display ergibt, das Sie zu anderen 
Programmen inspirieren kann. 

5 DIM fl<25i' 

7 LET D=0 
10 FOR fl=l TO 25 
20 LET fl<fl)=27 
30 NEXT fl 
40 LET Z=13 
50 LET fl<2i'=128 
60 PRINT flT 8.0J 
70 FOR fl*l TO 25 
80 PRINT OHR« FKfl>j 
100 IF 5*INT < fl..'-5 >=fl THEN PRINT 


30 


110 NEXT R 

120 LET D=>D+1 

130 PRINT .D 

140 LET C:*INT <RND**5)+1 

150 IF C=2 OR C=3 THEN GOTO 140 

160 IF RND>.5 THEN LET C=-C 

170 LET Rc:Z>=27 

180 LET Z*Z+C 

190 GOTO 50 

Sie werden entdecken, daß der Hase sehr selten, wenn 
überhaupt, mehr als fünfzehn Sprünge überlebt. 

Zum Schluß findet sich hier ein einfaches FRUIT- 
MASCHINE-Programm, das unter Zuhilfenahme vieler 
platzsparender Tricks, die wir besprochen haben, ge¬ 
schrieben wurde. Geben Sie es ein, lassen Sie es laufen 
und wenn Sie es einmal in Aktion gesehen haben, ver¬ 
suchen Sie, es so umzuschreiben, daß es noch platzspa¬ 
render wird. 

10 LET K=>3 
20 LET T^2 
30 LET ri»30 
40 LET Z=ri/M 
50 LET R=M~M 
60 LET B*=R 
70 LET C=R 
80 PRINT "SIE HRBEN 
90 INPUT R$ 

100 CLS 
110 LET M«=M-T 
120 FOR D=Z TO K 
130 GOTO 160+INT 
160 PRINT "1#"; 

162 LET R«R+2 
164 GOTO 184 
170 PRINT 
172 LET B«B+Z 
174 GOTO 184 
180 PRINT "*#'ü 
182 LET C«C+2 
184 NEXT D 

190 IF R»2 RND B«2 RND C«Z THEN 
LET M»M+T:*:T 

200 IF R«K OR 0«K OR C=>K THEN L 
ET M*M+K‘*T 

210 IF M<2 THEN PRINT "SIE SIND 

PLEITE".iW 

220 GOTO 50 
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%X# ^1# 

^y% 

Flotten und Drucken 

%i^ WIV 

^9^ 

D er ZX81 (und der ZX80 mit neuem ROM) hat sehr 
nützliche Fähigkeiten zum Flotten und Dmcken. 
Die nächsten vier Programme zeigen diese Möglich¬ 
keiten im Gebrauch. 


-Pattern-Master- 

Dieses Programm erzeugt ein sich ständig änderndes 
Muster und verwendet dazu ein Zeichen, das Sie aus¬ 
wählen. Das Programm ist relativ befriedigend, wenn 
Sie PAUSE benutzen, wird aber wirklich interessant, 
wenn Sie die Pause-Zeile löschen und das Programm 
im SLOW-MODE laufen lassen. 


10 PRINT PT 15.8; "PATTERN MASTE 
R" 

20 PRINT AT 10.0;"WELCHES SYMB 
OL SOLL ICH IM","MUSTER VERWENDE 
N" 

30 INPUT A$ 

40 CLS 

50 FOR Z«1 TO 500 
60 LET R=«INT <Rbmn>+l 
70 LET B=INT < RNDJ^-IS Hl 
80 PRINT RT R.B.iR$ 

90 PRUSE 30 
100 PRINT RT 22-R.B.iR* 

110 PRUSE 30 

120 PRINT RT R.32~B;R« 

130 PRUSE 30 

140 PRINT RT 22-R.32-B;RE|i 
150 PRUSE 100 
160 LET R=INT •::RND*HH1 
170 LET BaINT <RND^1^16H1 
180 PRINT RT R.B;"#“ 

190 PRUSE 5 

200 PRINT RT 22-R.B;"#" 

210 PRUSE 5 

220 PRINT RT R.32-BJ”#” 

230 PRUSE 5 

240 PRINT RT 22~R.. 32-B.i 
•P5PI PRIIRF 5 

260 IF RND>.4 THEN GOTO 160 
270 NEXT 2 
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280 PRUSE 400 
290 CLS 
300 RUN 


-Capriccio- 

»Capriccio: Musik, ein lebhaftes Stück, frei komponiert...« 
(Collins English Dictionary). Capriccio ist ein ähnliches 
Programm wie PATTERN-MASTER mit dem Unterschied, 
daß es die Muster auf einem feinerem Netz (62x40) er¬ 
zeugt und die PLOT und UNPLOT-Funktionen statt PRINT 
AT verwendet. 

Machen Sie die Schleife in Zeile 20 0 länger, wenn Sie 
das Programm etwas verlangsamen wollen. 


10 SLOW 
20 RRND 

30 LET R=INT < RHD:+:62 > 

40 LET B=INT < RNDt.40 ) 

50 IF RND>.25 THEN GOTO 150 
60 PLOT R.B 
70 GOSUB 200 
80 PLOT R..40-B 
90 GOSUB 200 
100 PLOT 62-R..B 
110 GOSUB 200 
120 PLOT 62-R..40-B 
130 GOSUB 200 
140 GOTO 30 
150 UWPLOT R.B 
160 UNPLOT R.40-B 
170 UNPLOT 62-R.B 
180 UNPLOT 62-R.40-B 
190 GOTO 30 
200 FOR N»! TO 5 
210 NEXT N 
220 RETURN 
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-Schmetterling- 

SCHMETTERLING ist eine einfachere Version des obi¬ 
gen Programms und paßt in 1 K. 


10 LET C=62 
20 LET D=40 
30 LET R=C:+:RND 
40 LET B=D:+:RND 
50 PLOT R.B 
60 PLOT R.D-B 
70 PLOT C~R.B 
80 PLOT C-R.D-B 
90 RUN 

Wie Sie sehen, gibt es keine Möglichkeit, eines der klei¬ 
nen schwarzen Vierecke wieder zu löschen, sodaß der 
Bildschirm eventuell eine massive schwarze Fläche 
wird. 


-Star-Map- 

STAR-MAP erzeugt eine Galaxie auf Ihren TV-Schirm 
und ist ein effektives Display-Programm, wenn es eini¬ 
ge Zeit lang laufen gelassen wird. Das Programm 
zeichnet ein schwarzes Rechteck und beginnt dann 
mittels PRINT AT und UNPRINT AT Sterne in das schwar¬ 
ze Nichts zu zeichnen. 

10 SLON 

20 FOR R-1 TO 10 
30 FOR B«1 TO 32 
40 PRINT 
50 NEXT B 
60 NEXT R 

70 PRINT RT RND:+:9.RND:*:31; "Jl" 

80 PRINT RT RhmS.RhmSl J 
90 PRINT RT RND‘Jt:9.RND'^31.« 

100 PRINT RT RNDT.9.RND5^:31 j 
110 PRINT RT l.lJ"j|f' 

120 PRINT RT 
130 GOTO 70 


Wir haben uns einige Zeit mit »ernsthaften« Anwendun¬ 
gen befaßt und werfen nun einen Blick auf die Spiel¬ 
möglichkeiten des ZX81. 
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-Geiger- 

GEIGER arbeitet sowohl in SLOW und FAST-MODE. Das 
abgedruckte Listing ist für FAST gedacht, aber es 
braucht nur kleine Änderungen, um den bestmögli¬ 
chen Gebrauch von SLOW zu machen. Sie suchen ei¬ 
ne kleine Menge Plutonium, die unter einer festen 
schwarzen Fläche versteckt ist. Sie müssen lernen, die 
Ausgabe Ihres Geigerzählers zu interpretieren, um das 
Plutonium zu finden. Die Anzeige Ihres Geigerzählers 
wird von Zeile 290 bestimmt, die Sie einfach ändern 
können, wenn Sie eine andere Form der Anzeige be¬ 
vorzugen. Wenn Sie das Programm wirklich schwierig 
gestalten wollen, können Sie die Ausgabe des Geiger¬ 
zählers etwas unberechenbarer machen, indem Sie ei¬ 
nen Zufallsfaktor einführen. 


10 LET S=0 

20 LET R«=2+INT < Rhms) 

30 LET B=1 + INT CRND**9> 

40 PRINT 
50 PRINT 

60 FOR X=1 TO 10 
70 FOR Y«1 TO 10 
110 PRINT RT 
120 NEXT Y 
130 NEXT X 
140 LET C=1 
150 LET D=1 
170 PRINT RT C..ru’*_X" 

175 LET S*S+1 

180 PRUSE 40 

190 PRINT RT C.CU"jL" 

200 IF INKEY$="7" THEN LET C=C- 

1 

210 IF INKEY«="5" THEN LET D«D- 

1 

220 IF INKEY$nn-6'« JHEN LET C=C+ 

1 

230 IF INKEY$="0" THEN LET D=D4. 

1 

235 IF INKEY$=«"S" THEN STOP 
240 IF C<1 THEN LET C«1 
250 IF O10 THEN LET 0=10 
260 IF D<1 THEN LET D«1 
270 IF D>10 THEN LET D«10 
280 IF R=C RND B«D THEN GOTO 90 

0 

290 PRINT RT 11.0;"GEIGER2REHLE 
R riISST^".!RBS ':B~D>:t:7.29+C+R 
300 GOTO 170 
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900 PRINT RT 13.3;"SIE HRBEN DR 
S PLUTONIUM IN".Sj" ttVERSUCHEN GE 
FUNDEN" 

910 PRINT ••#################### 
############» 

920 PRINT RT C.DJ"£" 

930 PRUSE 500 
940 CLS 
950 RUN 


Space Boy 


100 PRINT 

110 PRINT TRB 4j" SPRCE BÜV " 

120 PRINT 
130 PRINT 

140 PRINT "BEI DIESEM SPIEL MUE 
SSEN sie DEN" 

150 PRINT "WRNDERNDEN SPRCE BOY 
SO STEUERN." 

160 PRINT "DRSS SIE RLLE GEGENS 
TRENDE.DIE" 

170 PRINT "SICH IM OBERTEIL DER 
KRPSEL" 

180 PRINT "BEWEGEN.VERNICHTEN." 
190 PRINT 
200 PRINT 

210 PRINT "TRSTE X BEWEGT SIE N 
RCH LINKS." 

220 PRINT "TRSTE M NRCH RECHTS. 

II 

230 PRINT 

235 PRINT "SIE HRLTEN DEN SPRCE 
BOY IN" 

237 PRINT "BEWEGUNG.WENN SIE IH 
N MIT DER" 

238 PRINT "BEWEGLICHEN PLRTTFOR 
M RBSTOSSEN." 

240 PRINT 

250 PRINT "DRUECKEN SIE N/L.WEN 
N SIE" 

260 PRINT "SPIELBEREIT SIND" 

270 INPUT R$ 

275 CLS 

5010 FOR R=1 TO 100 

5020 LET B=PI5|^R/50 

5030 PRINT RT 9:+:C0S B+T2. 1451^3IN 

B+17; "JL" 

5050 NEXT R 
5060 CLERR 
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5062 

II 

s« 

5065 

r’ 

5070 

!«’■ 

5075 


PRINT flT 5.. 11.J" 
PRINT flT 6.. IIJ" 
PRINT FlT 7.. 10) " 
PRINT FIT 6. 11J" 



5451 LET C:*10 

5452 LET D=10 

5453 LET PUNKTE==0 

5455 LET Fl» 19 

5456 LET B»21 

5457 LET E=1 
5459 LET K=5 

5510 LET B»B“RND'4^5+RND'4*:5 
5520 IF INKEY$»"X" THEN LET D»D- 
1 

5525 IF D<e THEN LET D=23 
5530 IF INKEY$»'‘rr' THEN LET D=D+ 
1 

5535 IF D>23 THEN LET D=23 
5540 IF B>21 THEN LET B»21 
5550 IF B<9 THEN LET B«9 
5555 LET C»C+E 
5600 PRINT flT fl.B;‘'fc«JI“ 

5710 PRINT FIT C.. D+1 .j ; K 

5720 PRINT FIT C+1..D+1;'W 

5721 IF K=0 THEN GOTO 6010 
5740 PRINT FIT fl.B;"###" 

5750 PRINT FIT C..D+2;"#" 

5760 PRINT FIT C+1,D+1;" 

5770 IF C»18 AND ABS <D-B>>2 THE 
N LET K=K+1 

5775 IF 0+1=19 THEN LET E=-l 
5785 IF 0=5 THEN LET E»1 
5000 LET PIJNKTE«PUNKTE+1 
6000 GOTO 5510 

6010 PRINT FlT 10..4 j"MSIE HABEN# 
"; PUNKTE; "#PIJNKTE^" 

6015 PAUSE 400 
6020 CLS 
6030 RUN 240 
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^x^ ^X^ ^x^ %x^ vX^ %x^ %x^ ^x^ 

Arrays 

%^ ^x^ ^x^ ^x^ ^x^ %x^ ^x^ %x^ ^x^ ^x^ ^x^ ^x^ ^x^ ^x^ ^x^ ^x^ 


A rrays und der Gebrauch des DIM (Dimension) 
Statements können verwirrend sein. DIM wird 
gebraucht, wenn Sie eine Liste autstellen wollen. Sie 
möchten beispielsweise die Liste der Zahlen 1 bis 15 mit 
dem Namen A in der Form LET A (1)=1, LET A (2)=2 usw. 
bis LET A (15)=15 speichern. 

Um das zu tun informieren Sie den ZX8L daß Sie ein Ar- 
roy. brauchen, um diese Elemente aufzunehmen (1, 2 
usw. bis 15), indem Sie eingeben: 

10 DIM R<15) 

Die Zahl innerhalb der Klammern heißt Subscript und 
ein Element der Form F (2) oder K (8) heißt subskribierte 
Variable. Hier ist ein Programm, daß das DIM-State- 
ment demonstrieren soll 

10 DIM Roe) 

20 FOR B=1 TO 10 

30 LET fl''B)=2*B 

40 PRINT "R< ’b Bi " >= " j R< B > 

50 NEXT B 

Wenn Sie dieses Programm laufen lassen, dann be¬ 
kommen Sie: 

A (1)=2 
A (2)=4 
A(1 0)=2 0 
usw. usw.... 


Ändern Sie die Zeile 1 0 auf DIM A (5) und versuchen 
Sie, das Programm wieder laufen zu lassen. Diesmal 
werden Sie nur bis zu A (5)=1 0 kommen. Das Pro¬ 
gramm stoppt bei diesem Punkt (und gibt die Fehler¬ 
meldung 3/3 0 ab, das bedeutet, daß die benötigte 
subskribierte Variable, z.B. B=6 bis B=1 0 außerhalb 
des Bereiches war). Andern Sie Zeile 1 0 jetzt auf DIM A 
(2 0) und lassen Sie das Programm wieder laufen. Sie 
werden keinen Unterschied zu DIM A (1 0) bemerken. 
Sie ändern nichts (außer, daß Sie mehr Speicherplatz 
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verbrcnjchen), wenn sie ein größeres Array einrichten, 
als Sie tatsächlich benötigen. Nun fügen Sie zu Ihrem 
Programm die folgenden Zeilen dazu: 

10 DIM «10) 

60 INPIJT B* 

70 FÜR Z=1 TO 115 

80 LET Rf.2)=3*Z 

90 PRINT "« " iZi " )="jfl<;Z) 

100 HEXT Z 

Wenn Sie das laufen lassen, werden Sie das gleiche Er¬ 
gebnis bis A (1 0)=2 0 bekommen, gefolgt vom Sym¬ 
bol, das Sie zur Eingabe eines Strings auffordert 
(drücken Sie in diesem Fall NEWLINE). Der ZX81 wird 
dann anzeigen; 

A (1)=3 bis zu ... 

A(1 0)=3 0 

Der Fehlercode 3/8 0 wurde angezeigt, weil das Array 
in Zeile 1 0 kleiner definiert wurde als der Bedarf in Zei¬ 
le 8 0. Das heißt, Zeile 7 0 machte das nächste Z=F und 
Zeile 8 0 verlangte deshalb eine subskribierte Varia¬ 
ble mit Namen A (11), die es natürlich nicht finden 
konnte, weil das Array nur Platz für 1 0 Elemente hatte. 


-Pferderennen- 

Das nächste Programm, PERDERENNEN, verwendet ein 
Array (definiert in der ersten Zeile), um die Positionen 
von vier kleinen Pferden zu speichern (die inversen 
Buchstaben A, B, C und D), die auf einer Rennstrecke 
auf Ihrem Bildschirm (oder wenigstens auf einem sehr 
groben Abbild einer Rennstrecke) hinauf- und hinun¬ 
tergaloppieren. Nachdem am Ende der Endstand an¬ 
gezeigt wurde, fährt die Rennstrecke weg und ein neu¬ 
es Rennen beginnt. 

10 DIM RC4> 

20 SLOW 

.30 FOR R==l TO 22 
40 FOR C=1 TO 3 
50 PRINT "m'i 
60 NEXT C 
70 FOR B«! TO 15 
80 PRINT 
90 NEXT B 
100 FOR C=1 TO 8 
110 PRINT 
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120 

NEXT C 




130 

NEXT R 




140 

LET R=12 




150 

LET B=15 




160 

LET c«ie 




170 

LET C«21 




180 

GOTO 230 




190 

PRINT RT 

RBS 

C22-R<'l >>.R; 

"4 

200 

PRINT RT 

RBS 

CEE-RCE^^.Bj 

"# 

210 

PRINT RT 

RBS 

c:22~R':3>>.C; 

"# 

220 

PRINT RT 

RBS 

'::22-R<4>>.D; 

"4 

230 

FOR G«1 TO 4 



240 

LET R<G)= 

= 1+R<G:'+INT '::RND';^:2> 

250 

NEXT G 




260 

PRINT RT 

RBS 

(22-R< 1 >>..R.J 


270 

PRINT RT 

RBS 

<22-R<2>>..B; 

"EL 

260 

PRINT RT 

RBS 

c:22-R<3>>..C; 

•T 

290 

PRINT RT 

RBS 

(22-R<4>>.Dj 


300 

FOR N=1 ■ 

TO 10 


310 

NEXT N 




320 

IF R<1><42 RND R«r.2)<42 RND 


R<3K42 RND R<4><42 THEN GOTO 19 
0 

330 PRINT RT 3.2; "PUNKTE ^ fl-% Rc; 
1 >; "#B-";R<2)J "#C-";R<3>; "#D-"jR 
<4> 

340 FOR N=1 TO 100 
350 NEXT N 
360 CLS 
370 RUN 


Alien Imploders 


5 LET U=0 
10 GOSUB 1000 
90 FOR K=1 TO 70 
100 PRINT RT 3.0;R«;RT X.Y-lj"# 
R#" 

200 LET R$=R$C 2 TO HR$< 1 > 

300 IF INKEY$«"5" THEN LET Y«Y~ 

1 

350 IF INKEY$«"8" THEN LET Y=Y+ 


40 




360 IF INKEY$«‘'r‘ THEN GOSUB 50 
00 

500 NEXT K 

510 PRINT flT 12.9;" ENDE DER RUH 

520 IF Q>U THEN LET IJ*Q 
530 IF 1JO0 THEN PRINT flT 1.0;" 
HOECHSTER PUNKTESTflND =";U 
540 FÜR D»1 TO 60 
550 NEXT D 

555 PRINT FIT 12.9; ":1^:1^BITTE WART 

560 LET 2«RND:*:5l^RND 
570 PRINT flT 12.9;"############ 
####" 

700 GOTO 10 

1000 LET fl$="##X##X##X##X##X##M# 

1020 LET S=0 
1030 LET X*=18 
1040 LET Y=16 

1050 PRINT FIT X.0; "############# 

1060 PRINT FIT 0.7; "############# 
####" 

1500 RETURN 

5000 IF fl$<YX>"#" THEN LET S=S+ 

1 

5002 IF fl$c:Y)="il" THEN LET S=S+2 

5003 IF fl$c:Y>*="M" THEN LET S=S+1 
5005 LET fl^CY)«"#" 

5008 FÜR fl=18 TO 1 STEP -3 
5010 PRINT FIT FI.Y;"." 

5020 PRINT FIT fl.Y;"#" 

5030 NEXT Fl 

5040 LET Q='S:+:6453+INT (.RH0t3’> 
5050 IF Q>5000 THEN PRINT FlT 0.7. 
;"PUNKTE^";Q 

5070 IF Y>2 AND Y<30 THEN LET Y= 
Y+INT CRhmSXINT ( RND)^:3 > 

5500 RETURN 


Der ZX81 kann auch n-dimensionale Arroy aulstellen 
(wobei n ein positiver Integer sein muß). Ein zweidi¬ 
mensionales Array wird definiert mit einer Anweisung 
wie DIM A (1 0,1 0), was 1 0 0 Variablen ergibt. Ge¬ 
nauer gesagt 1 0x1 0 subskribierte Variable von 11 bis 
U 0. 
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-Versteckspiel in 3-D- 

In diesem Programm müssen Sie den ZX81 finden, der 
sich in einem dreidimensionalen Array versteckt. Um 
ihn zu finden, stellen Sie sich vor, daß der ZX81 sich in ei¬ 
nem Würfel mit den Maßen 10x10x10 versteckt. Sie 
geben drei Koordinaten ein (jeweils eine gefolgt von 
NEWLINE); der Computer gibt Ihnen dann eine Ant¬ 
wort, die Ihnen erlaubt, Ihren Tip zu modifizieren. Sie 
werden bald lernen, wie Sie das Feedback des Com¬ 
puters interpretieren und Ihren Tip ändern müssen. 


10 Din R< 10.. 10.. 10> 

20 LET fl=INT 
30 LET B=INT <RHD:4:10H1 
40 LET C:=INT <RND:+:10>+1 
50 LET FKn.B.C>=l 
60 FÜR Z=1 TO 10 
70 PRINT "WO VERSTECKE ICH niC 
H?" 

80 PRINT "VERSUCH NR.".i2 
90 INPIJT D 
100 INPUT E 
110 INPUT F 

120 PRINT Dj"##";E;"##";F 
130 IF R'CD.E.F)«! THEN GOTO 340 
140 PRINT "DRNEBEN" 

150 PRINT "HIER IST EINE HILFE' 

II 

160 FOR G=1 TO RBS <R~D> 

170 PRINT "i".; 

180 NEXT G 
190 PRINT 

200 FOR G=1 TO RBS < B-E 
210 PRINT 
220 NEXT G 
230 PRINT 

240 FOR G=1 TO RBS <C~F> 

250 PRINT "l"s 
260 NEXT G 
270 PRINT 

280 PRINT "DRUECKEN SIE hL-^L FUE 
R DEN".. "NRECHSTEN VERSUCH" 

290 INPUT R$ 

300 CLS 
310 NEXT Z 

320 PRINT "DRS WRR SCHLECHT" 

330 GOTO 350 

340 PRINT "SIE HRBEN MICH IN#"j 
Z.! "VERSUCHEN".. "GEFUNDEN" 

350 PRINT "ICH WRR RUF#"R.: "##" 
.iB; "##";C 
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360 PRUSE 200 
370 CLS 
380 RUH 


-Blaster-Mind 1- 

Es gibt auch Zeichenarrays. Im nächsten Programm, 
BLASTER-MIND, werden zwei Zeichenarrays (A $ und B 
$) verwendet. A $ speichert den 4-ZahIencode, den Sie 
outdecken müssen, und akzeptiert Ihren Tip. Das Pro¬ 
gramm vergleicht dann Ihren Tip mit seinem Code Ele¬ 
ment für Element. Das Prinzip des Spieles ist einfach: 
Der Computer erstellt einen String, der vier Zahlen 
beinhaltet. Keine Zahl ist doppelt und 0 wird nicht ver¬ 
wendet. Sie geben Ihren Tip als String B $ ein und 
drücken dann NEWLINE. Für eine richtige Zahl in der 
richtigen Position bekommen Sie einen schwarzen 
Punkt. Für eine richtige Zahl in der falschen Position ei¬ 
nen weißen. Sie haben zehn Versuche, die Zahlen¬ 
kombination herauszufinden. Nach jedem Versuch 
dmckt der ZX81 Ihren Tip aus und gibt dann den Punk¬ 
testand der schwarzen (als inverse Zahl) und der wei¬ 
ßen Punkte (als normale Zahl) an. Verwenden Sie eine 
Zahl in einem Versuch nicht zweimal. 

10 DIM R$<4> 

20 DIM 

30 LET R«0>=STR$ «r. INT (.RHDtSy 
+ 1 > 

40 FOR R=2 TO 4 

50 LET R$<R>:=STR$ < INT < RND'-*:9 > 

+ 1 > 

60 FOR B«1 TO R-1 

70 IF R$CB^^R^CR> THEN GOTO 50 

80 NEXT B 

90 NEXT R 
100 LET C*-R$ 

110 FOR E«1 TO 10 
120 SCROLL 

130 PRINT "GEBEN SIE VERSUCH NR 
."jE;"#EIN" 

140 INPUT B* 

150 LET B=0 
160 LET W»0 

170 IF B$=R$ THEN GOTO 360 
180 FOR C=1 TO 4 
190 IF R$COB$<C> THEN LET B=B 
200 IF RSpc: C >«B$< C > THEN LET 
C >»" 0 " 

210 NEXT C 
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220 FOR C»1 TO 4 
230 IF R«CC)«“0" THEN GOTO 280 
240 FOR D=1 TO 4 
250 IF fl$<CX>B$CD> THEN GOTO 2 
70 

260 LET W«W+1 
270 HEXT D 
280 HEXT C 
290 LET 
300 SCROLL 

310 PRINT "#%CHR$ <B+156X 

320 NEXT E 
330 SCROLL 

340 PRINT "DIE ZEIT IRT UM" 

350 GOTO 380 
360 SCROLL 

370 PRINT "SIE HRTTEN RECHT IN# 
" jE 

372 SCROLL 

375 PRINT "VERSUCHEN" 

380 SCROLL 

390 PRINT "DER CODE WRR#"jR$ 

400 PRUSE 200 
410 CLS 
420 RUN 


-Blaster-Mind 2- 

Hier ist eine andere Version des Spieles, die nur drei 
Zahlen verwendet und in 1 K paßt. Verwendet werden 
die Zahlen 0 bis 9, aber 0 ist niemals die erste Zitier. 
Wie in der vierziftrigen Version wird keine Ziffer wie¬ 
derholt. Es gibt weniger »Konversation« in dieser Ver¬ 
sion, um das Programm in 1 K’zu bekommen, aber Sie 
werden es immer noch unterhaltsam finden (und be¬ 
deutend einfacher als die Vierziffern-Version). 

10 DIM R$c:3> 

20 DIM B$C3> 

30 LET R$=STR$ < INT < RND:t:900 >+ 

100 > 

35 IF R^f.n^R^CZ) OR R$a >=R$< 

3> OR R$< 2 >=»R$< 3 > THEN GOTO 30 
40 FOR C«1 TO 10 
50 INPUT B$ 

60 IF R$=B$ THEN GOTO 270 
70 LET C$=R$ 

80 LET B»=156 
90 LET W=«0 
100 FOR D=1 TO 3 
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110 IF fl^CCOOB^CD) THEN GOTO 1 
40 

120 LET B=B4-1 
130 LET R$<D>="Z" 

140 NEXT D 
150 FOR D“1 TO 3 
160 FOR E=1 TO 3 
170 IF B^-r. D X >R$'r. E ) THEN GOTO 2 
00 

190 LET W»W+1 
190 LET R$<D)a"Z" 

200 HEXT E 
210 NEXT D 
220 LET R$=C$ 

230 PRINT B$;"##";CHR$ B;"##''.!W 
240 NEXT C 
250 PRINT R$ 

260 STOP 

270 PRINT R$j"##SIE SCHRFFTEN E 
S IN#".;C; "#ZUEGEN" 

Die zwei vorangegangenen Programme haben Zei- 
chenarrays benutzt. Um passende Zeichenkettenar- 
rays (wo jedes Element der Liste länger ist als nur ein 
Zeichen) zu bekommen, müssen Sie nicht nur die An¬ 
zahl der Worte in der Liste dimensionieren, sondern 
auch die Länge des längsten Wortes, das Sie in das Ar- 
ray schreiben wollen. 

Das nächste Programm — SCHERE/STEIN/PAPIER — 
zeigt dies in der Praxis. Zeile 20 (DIM A $ (3,8)) stellt ein 
Array von drei Worten aut wobei jedes Wort bis zu 8 
Buchstaben lang sein kann. 


-Schere/Stein/Papier- 

Es ist egal, ob ein Wort kürzer oder gleich lang als die 
zweite Zahl in der Dimensionsanweisung (die 8 in Zeile 
20) ist, solange das Wort nicht mehr Buchstaben hat 
als die dimensionierte Anzahl. Jedes Wort kann auch 
durch Eingabe nur der ersten Zahl bestimmt werden. 
Der ZX81 setzt voraus, daß sie jeden Buchstaben des 
Wortes wollen. 

Wir geben zuerst den ersten Teil des Programms ein, 
um dies zu verdeutlichen 


10 RAND 

20 DIM R*<3.6) 

30 LET fl«1)="STEIN 
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40 LET H« 2 >="SCHERE" 

50 LET fl$'r.3>="PRPIER" 

60 SCROLL 

70 PRINT fl$<IHT (;RND’*3)+1> 

80 GOTO 60 

Lassen Sie dies laufen und Sie werden eine endlose, 
aus den Worten Schere/Stein/Papier gebildete Reihe 
aut dem Bildschirm bekommen. Stoppen Sie das Pro¬ 
gramm mit BREAK und geben Sie den Rest des Pro¬ 
grammes ein (was einige Zeilen der obigen Demon¬ 
stration löscht). 

60 LET P=0 
70 LET C=0 
80 IHPUT fl 
90 CLS 

100 LET B=INT <RND#3)-i- 1 
110 PRINT FIT 7.10P'SIE'bfl*(:fl>;T 
AB ll.iP 

120 PRINT FIT 14. 10P'ICH'Lfl$'r,EO.i 
TFlB 11.1C 

130 PRINT FIT 3.12; 

140 IF fl=B THEN GOTO 190 
150 IF fl=l AND B*2 OR fl=2 AND B 
=3 OR fl=3 AND B=1 THEN GOTO 210 
160 PRINT " ICH GENINNE " 

170 LET C=C-H 
180 GOTO 80 

190 PRINT " UNENTSCHIEDEN" 

200 GOTO 80 

210 PRINT " SIE GENINNEN " 

220 LET P=P+1 
230 GOTO 60 


Sie können dieses Spiel so lange spielen, wie Sie wol¬ 
len und halten es an, indem Sie irgendeinen Buchsta¬ 
ben mit Ausnahme von A, B, C oder P eingeben. Um zu 
spielen, erinnern Sie sich daran, daß der Stein die Sche¬ 
re schlägt (weil ein Stein eine Schere schartig macht), 
die Schere Papier schlägt (weil Scheren Papier schnei¬ 
den können), und Papier den Stein schlägt (weil ein 
Stein in Papier eingewickelt werden kann). 

Wie Sie wahrscheinlich schon beim Eingeben des Pro¬ 
grammes bemerkt haben, erfordert dieses Spiel keiner¬ 
lei Geschicklichkeit, weder vom Computer noch von 
Ihnen. T speichert den Stand des Spielers und der Punk¬ 
testand des Computers wird in der Variablen C gehal¬ 
ten. Beachten Sie den Gebrauch von TAB in den Zeilen 
110 und 120. Diese ermöglichen es, mit nur einer Pro¬ 
grammzeile zwei Schriftzeilen auszudmcken. Das 
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Handbuch des ZX81 erklärt das (und den Gebrauch 
von PRINT AT) aut den Seiten 115 und 116. 

War bei diesem Spiel weder von Ihnen noch vom 
Computer besondere Geschicklichkeit erforderlich, 
verlangt das nächste Geschicklichkeit von beiden, al¬ 
lerdings bedeutend mehr vom ZX81. 

-Codebreaker- 

Dies ist das ideale Spiel, wenn Sie es müde sind, den 
Zahlencode des ZX81 zu erraten, Hier muß der ZX81 Ihre 
Codes herausfinden. Das Programm erlaubt dem Com¬ 
puter, einen Code von N Zahlen aufzudecken, wobei 
die verwendeten Zahlen von 1 bis L reichen. Im Pro- 
grammlisting habe ich N auf 4 und L auf 6 gesetzt, aber 
Sie können dies selbstverständlich ändern. Der ZX81 fin¬ 
det auch Kombinationen heraus, bei denen eine Zahl 
mehrmals vorkommt. Er dmckt seinen Tip aus, dann er¬ 
scheint das Wort »Schwarz«. Hier geben Sie die Anzahl 
der Ziffern ein, die richtig und auf der richtigen Stelle 
sind. Der Computer dmckt dann »Weiß« und Sie teilen 
ihm mit, wie viele Zahlen er richtig, aber auf dem fal¬ 
schen Platz hat. Das Programm ist sehr langsam, des¬ 
halb lassen Sie es immer im FAST-MODE laufen. 


1 

LET N=4 


o 

LET ri=6 


3 

LET L=M 


5 

DIM GO'Hr;» 


10 

DIN 


20 

DIN Bai) 


30 

DIN DCN) 


40 

DIN N(N> 


50 

DIN hol:' 


60 

FOR 2=1 TG N 


80 

LET G'::2>=INT (.RHDtL 

>+1 

90 

HEXT 2 


100 

FOR G=1 TG N 


110 

FOR 2=1 TG N 


120 

PRINT G-::2>; 


130 

LET N< 2 > 


140 

HEXT 2 


150 

PRINT "#SCHWRR2="; 


160 

INPUT B<G> 


170 

PRINT B<G) 


130 

IF bc:g>-n then goto 

220 

190 

PRINT 


200 

PRINT "CODE IN#".5G.5 

”#VER! 


HEH ERRATEN 
210 STOP 
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220 PRINT ”#WEISS«".5 
230 INPUT WCG) 

240 PRINT PKG*.) 

250 LET GC2)===GCZ>4.1 

260 FOR Z=1 TO N 

270 IF G<:Z>-L-1 THEN GOTO 300 

2S0 LET G<Z>«1 

290 LET G(Z+n»G<2+l >+l 

300 NEXT Z 

320 FOR 2=1 TO G 

330 FOR J=1 TO N 

340 LET D«: J N:+:2+J-N ) 

350 LET H<J>=G(J> 

360 NEXT J 
370 LET B=0 
380 LET W=0 
390 FOR J=1 TO N 
400 IF D<J>=0 OR H<:J>=0 OR DCJ) 
-H<J> THEN GOTO 440 
410 LET Dc:J)=0 
420 LET H<J)=0 
430 LET 8=8+1 
440 NEXT J 

450 IF B~8<Z) THEN GOTO 250 
460 FOR J=1 TO N 
470 FOR K«1 TO N 
480 IF D(J>=0 OR H<K>»0 OR D< J ) 
-HOO THEN GOTO 520 
490 LET D':J>=0 
500 LET H<K)=0 
510 LET W=W+1 
520 NEXT K 
530 NEXT J 

540 IF W~W(2> THEN GOTO 250 
550 NEXT Z 
560 NEXT G 


—Mondlandung 1,2 und 3— 

Wir machen nun eine weitere Lernpause und werfen 
einen Blick auf drei Versionen eines sehr populären 
Programmes — Mondlandung. 

Das Raumschiff startet in einer zufälligen Höhe über 
dem Mond (1350 bis 1549) mit einer zufällig Benzinmen¬ 
ge (80 bis 178.5) und mit einer zufälligen gewählten Ge¬ 
schwindigkeit (0 bis 19). Wenn Sie Glück haben, be¬ 
kommen Sie eine Ausgangsposition, die es leicht 
macht, zu landen. Wenn nicht, brauchen Sie alle Ge¬ 
schicklichkeit eines Astronauten, um eine erfolgreiche 
Landung durchzuführen. Wenn Sie nach der Aufforde- 
mng des Computers zuviel Schub eingeben (Zeile 
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2240), haben Sie das große Vergnügen zu explodieren 
(Zeile 2305). Die gewählten Variablennamen machen 
es einiach, sie durch das Programm zu verfolgen. Höhe 
ist H, Benzin ist B, Geschwindigkeit ist G, Schub ist S und 
Dauer ist D. Wenn Sie selbst Programme schreiben, ist 
es eine gute Idee, derartige Variablennamen zu ver¬ 
wenden (wenn Sie Speicherplatz verbrauchen wollen, 
können Sie die Bezeichnungen sogar ausschreiben) 
weil es einfacher ist, herauszufinden, was das Pro¬ 
gramm tut, wenn Sie es nach einigen Wochen wieder 
laufen lassen. Beachten Sie, daß die Zeilen 2101 und 
2106 den Effekt haben, daß die Werte von B, H und G 
auf eine Dezimalstelle gekürzt werden, bevor sie aus- 
gedmckt werden. 


2005 LET R=0 

2010 LET 1350+INT < RHD:t:200 > 
2020 LET B=80+INT < RND:+:400 >/2 
2030 LET G=INT < RNDt.20 > 

2035 PRINT 

2040 PRINT "DRUECKEN SIE N/L UM 
DIE LANDUNG".. "ZU BEGINNEN" 

2045 INPUT U« 

2047 CLS 

2048 LET S=1 
2050 LET D=0 
2060 LET Kl=l 
2090 CLS 

2095 FOR R=0 TO D 

2100 PRINT RT 16-H/100.K1; 

2101 LET B=INT •::B:+:10> 

2102 LET B=B/10 

2103 LET H=INT c:H‘^.10) 

2104 LET H=H/10 

2105 LET G=INT 

2106 LET G^G/IO 

2107 IF R>0 OR H<1 THEN LET H=0 

2108 IF R>0 OR H<1 THEN LET R=D 

2109 PRINT RT 0.0; "HOE = " ; H.! "##GE 
S*";G;"##BE*";B;"####" 

2112 LET G«=G+17-S/3 

2115 LET K1='K1+RND 

2116 IF Kl>26 THEN LET Kl=20 
2120 LET H=H-G 

2125 IF H>1600 THEN GOTO 2305 
2130 LET B=B~.S/5 

2140 IF 2t(.n\T -r.R./2y;'=R THEN PRI 
NT RT 16-H/100.K1; "V" 

2145 IF 2:^^^. INT R./2 >R THEN PR 

INT RT 16-H.^100.KiyW 

2190 PRINT RT 16.0;"ZEIT:";D-R;" 

——i r—-1" 
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2220 IF H<100 RND B>0 RND G<10 T 
HEN LET R=1 

2222 IF H<100 RND G>9 THEN LET R 
=2 

2223 IF B<1 THEN LET R=3 

2224 IF R>0 THEN GOTO 2280 
2228 HEXT R 

2230 PRINT RT 19.0;J 
2235 INPUT S 
2250 PRINT S."DRUER 
2260 INPUT D 

2265 IF D>10 THEN GOTO 2260 
2270 GOTO 2090 

2280 IF R=1 THEN PRINT "ERFOLGRE 
ICHE LRNDUNG" 

2290 IF R=2 THEN PRINT "BRUCHLRN 
DUNG”. .. "SIE HRBEN EINEN#”; INT CG 
*4.5).:” #riETER ” ."TI EPEN NGNDKRRTE 
R GEBOHRT” 

2300 IF R=3 THEN PRINT "SIE HRBE 
N KEINEN SPRIT riEHR%”DRNN GUTE 
NRCHT...” 

2305 IF H>1600 THEN PRINT "IHRE 
FREHRE IST EXPLODIERT” 

2310 PRUSE 400 
2320 CLS 
2330 RUN 


Beachten Sie, daß alle Zeilennummern in diesem Pro¬ 
gramm zwischen 2.0 0 0 und 2.330 liegen. Dies des¬ 
halb, damit Sie, wenn Sie wollen, dieses Programm mit 
anderen zu einem großen Programm kombinieren 
können und so beide Programme aut einmal laufen 
können. Wenn Sie dies tun, müssen Sie ein »Menü« hin¬ 
zufügen, das die Programmnamen der zwei (oder 
mehreren) Programme mit den entsprechenden GO¬ 
TO s angibt. 

Das obige Mondlandungsprogramm hat einen Nach¬ 
teil. Es verwendet falsche Formeln, die mehr wegen 
ihres Effekts im Spiel ausgewählt wurden als wegen 
ihrer Beziehung zur Wirklichkeit. 

Das nächste Landungsprogramm verwendet echte 
Gleichungen, aber hat kein nennenswertes Display 
Nachdem Sie es geschafft hoben, die Raumfähre im 
oberen Programm sicher zu landen, geben Sie das fol¬ 
gende Programm ein, und nachdem Sie einmal erfolg¬ 
reich landen können, arbeiten Sie Ihr eigenes Display 
aus. Die verwendeten Variablen sind A (Geschwindig- 
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keit> B (Höhe), C (Treibstoff) und T (Schub). Die benutz¬ 
ten Formeln sind: 

H=H-fVt-fV2at2 

V=V-fat 

Eine Eingabe von 5 setzt den Schub der Anziehungs¬ 
kraft gleich. 

10 LET Fl=~20-INT < RHD:+:60 > 

20 LET B==450+INT ( RND:+:!50 > 

30 LET C:=120+INT RND'^30 > 

40 PRINT RT 5.0;''HOEHE#'';B.i "#G 
ESCHW. " ; R; " " .. " TRNK# " ; C; " ### " 

50 IF C<1 THEN GOTO 180 
60 PRINT RT 10.8;“WIE VIEL SCH 
ÜB?" 

70 INPUT S 

80 PRINT RT 10.8;“############ 

###“ 

Se IF S>C THEN LET S=0 
100 LET C=C-S 
110 LET B==B+R+< S~5 V2 
120 LET R=R+<S-5V2 
130 IF B>0 THEN GOTO 40 
140 IF RBS B<5 RND RBS R<5 THEN 
PRINT RT 5.0;“SIE SIND SICHER G 
ELRNDET“ 

150 IF RBS B<5 RND RBS R<5 THEN 
STOP 

160 PRINT RT 5.0;“HOEHE#“;B;“#T 
RNK#“;C;“#####“.“##########“ 

170 GOTO 190 

180 PRINT RT 5.0;“SIE HRBEN KEI 
NEN TREIBSTOFF MEHR“ 

190 PRINT RT 10.0;“SIE SCHLUGEN 
MIT#“;RBS R;“#KM/H RUF“ 


Das letzte Mondlandungsprogramm hat ein Display 
und paßt in 1 K. Es verwendet eine modifizierte Form 
der Formeln, die im vorhergegangenen Programm be¬ 
nutzt wurden. 

In diesem Programm ist K die Position des Raumschiffes 
auf dem Bildschirm. S ist Treibstoff, H ist Höhe und Z sorgt 
dafür, daß das »alte« Raumschiff gelöscht wird, bevor 
das neue auf den Bildschirm gedmckt wird. 

Wenn Sie PRINT AT verwenden, um bewegliche Gra¬ 
phik zu erzeugen, ist es sinnvoll, die Lösung erst im letzt¬ 
möglichen Moment durchzuführen, um die Zeit, auf der 
das Objekt nicht am Bildschirm ist, möglichst gering zu 
halten. Die Variable Z hilft dabei. 
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10 LET K=3 
20 LET B=300 
25 LET G«=15 
30 LET H=500 
40 LET 2«H 
50 PRINT flT 13.15; 

60 PRINT flT 6.25;'’T#";B; •’###"; 
TflB 25; '•###" ;TflB 25; "G#”; 

G;"###" 

70 PRINT FIT <600-2 V50..K; "##’• 
80 LET K=K+RND 

90 PRINT FIT <600-H>/50.K;’W 
100 LET 2=H 
110 INPUT S 
120 LET G»G+5-S 
130 LET H«H-G 
140 LET B=«B-flBS S 
145 IF B<1 THEN GOTO 190 
150 IF H>0 THEN GOTO 60 
160 IF G>10 THEN GOTO 190 
170 PRINT B-G; ■■ #PUNKTE FUER DIE 
SE LANDUNG" 

180 GOTO 170 

190 PRINT ' ■#flUFSCHLflG MIT# ";G; 
200 GOTO 190 


Ich habe drei Versionen dieses Programms auigenom- 
men, um zu zeigen, wie verschiedene Methoden das 
Display, den Einfluß des Spielers und die Chance auf 
Erfolg verändern können. Nachdem Sie nun drei, et¬ 
was verschiedene Programme in Aktion gesehen ha¬ 
ben, schreiben Sie Ihr eigenes Mondlandungspro¬ 
gramm. 
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^>i^ 

^ 1 ^ ^ 1 ^ 

Programme 

schreiben 

%1^ %A^ %X^ ^1# ^1# 


D ie meisten Programmierbücher empfehlen Ihnen, 
mit dem Zeichnen eines »FLOWCHART« zu begin¬ 
nen — einer netten Kombination von Kreisen, diaman- 
tentörmigen und schrägen Rechtecken, die den Weg 
und die Operationen zeigen, denen der Computer fol¬ 
gen muß, um das Programm auszuführen. In der Theo¬ 
rie ist das wunderbar, aber in der Praxis, besonders 
dann, wenn man mit einem Computer wie dem ZX81 
arbeitet, sind die Zeit und der damit verbundene Auf¬ 
wand es nicht wert. 

Trotzdem ist es gmndlegend wichtig, exakt zu wissen, 
was der Computer tun soll, bevor man beginnt, ein 
neues Programm zu entwickeln. Sogar dann, wenn Sie 
noch nicht wissen, wie Sie dies auf dem ZX81 erreichen. 
Manchmal kann eine grobe Art Flowchart — nur die 
wichtigsten Schritte, die der ZX81 braucht, verbunden 
durch Linien und Bogen — helfen, Ihre Gedanken auf 
das Wichigste zu konzentrieren. Das ist auch eine gute 
Methode, mögliche Probleme gar nicht erst aufkom- 
men zu lassen, wie beispielsweise eine ewige Schleife, 
oder nicht genau zu wissen, wie die Aufgabenstellung 
für den Computer lautet. 

Ich arbeite normalerweise den Kern eines Program¬ 
mes auf Papier aus und gebe ihn dann in den ZX81 ein, 
wobei ich bei Zeile 10 0 beginne, um genug Platz da¬ 
vor zu lassen für die Belegung von Variablen, Aufstel¬ 
lung von Arrays und dergleichen mehr. 

Wenn Sie an einem sehr einfachen Spiel arbeiten oder 
ein Programm von einem Buch oder einer Zeitschrift 
adaptieren, können Sie genauso gut direkt am ZX81 ar¬ 
beiten. Aber haben Sie ein Notizbuch griffbereit, um 
sich Dinge, wie beispielsweise, daß der String A $ für 
den Namen des Spielers verwendet wird, notieren zu 
können. Wenn Sie eine 16 K Speichererweiterung ha¬ 
ben, lassen Sie trotz der Anwesenheit des Zusatzspei¬ 
chers keine schlechten Programmiergewohnheiten 
einreißen. Es ist sehr einfach, eine lange und schwerfäl¬ 
lige Kette von IF/THEN-Befehlen aufzustellen, die ei¬ 
gentlich durch einen IF/THEN-Befehl und ein GOSUB er- 
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setzt werden sollten. Wenn Sie noch Speicherplatz 
übrig haben, ist es manchmal eine zu große Mühe, das 
Programm autzurdumen. GOTO-Befehle entstehen 
meist in einer Vielzahl von Situationen, die sich meist 
ergeben, weil Sie nicht rechtzeitig daran gedacht ha¬ 
ben, wieviel Zeilen Sie brauchen würden. Wenn Sie 
ein Listing untersuchen, achten Sie besonders aut 
GOTO-Befehle, die nicht mit einer Bedingung verknüpft 
sind. 

Das Beste, was Sie einem längeren Programm geben 
können, ist das Element der Überraschung. Wenn Sie 
Situationen einbauen können, die nicht jedesmal 
entstehen, wenn das Spiel gespielt wird, haben Sie si¬ 
chergestellt, daß es für wesentlich längere Zeit interes¬ 
sant bleibt, als dies der Fall wäre, wenn eine Spielsitua¬ 
tion bei jedem Problemlauf ausgelöst wird. 

Sie können langsam laufende Spiele bis zu einem ge¬ 
wissen Grad beschleunigen, indem Sie oft gebrauchte 
Subroutinen an den Anfang des Programmes stellen. 
Das Programm wird etwas schneller laufen, weil der 
Computer jedesmal, wenn er zu einem GOTO oder GO- 
SUB Befehl kommt, das gesamte Listing durchlaufen 
muß. Wenn die Subroutine nun am Anfang des Listings 
ist, muß der ZX81 beispielsweise nicht jedesmal die 
Spielanleitung durchforsten, wenn er nach einer 
Subroutine sucht. Sie können als erste Zeile des 
Programms einen GOTO Befehl vorsehen, mit dem der 
Computer dann über die Subroutinen springt. Varia¬ 
ble, die zu Programmbeginn einen Wert zugewiesen 
bekommen sollen, können auch am Ende des Pro¬ 
gramms aufgelistet werden, wenn danach ein GOTO- 
Befehl folgt, der den Computer zum eigentlichen Pro¬ 
grammbeginn zurückführt. 

Eine andere Möglichkeit, Programme zu verbessern 
und sie für längere Zeit interessant zu machen, ist, die 
Auswahl zwischen verschiedenen Schwierigkeitsgra¬ 
den anzubieten. Achten Sie aber darauf, daß sich der 
Schwierigkeitsgrad tatsächlich erhöht und daß auch 
auf höchster Spielstufe ein durchschnittlicher Punkte¬ 
stand erreichbar ist. 

Sie können das Spiel noch interessanter machen, in¬ 
dem Sie Punkte oder ähnliche Bewertungen verge¬ 
ben, die in Beziehung zu der Geschwindigkeit oder der 
Geschicklichkeit des Spielers stehen. Eine andere Mög- 
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lichkeit ist, dem Spieler einen Titel zu geben (wie Flot¬ 
tenkapitän oder Inkompetenter Trottel), der abhängig 
von seiner Leistung ist. Punkte und Titel garantieren, 
daß der Spieler am Spiel für eine längere Zeit interes¬ 
siert bleibt, und daß er sein Bestes versuchen wird, um 
einen Höchstpunktestand oder eine Höchstbewertung 
zu bekommen. 

Denken Sie an diese Punkte, wenn Sie die Programme 
in diesem Buch verbessern, oder wenn Sie Ihre eige¬ 
nen Programme schreiben. 


-Nougtits and Grosses- 

Wahrscheinlich werden Sie wissen, wie dieses Spiel, 
(dasteilweise auch als 0X0 bekannt ist) gespielt wird. 
Abwechseld setzt jeder Spieler ein O oder ein X aut ei¬ 
ne Stelle in einem 3x3-Gitter und versucht, drei seiner 
Steine in eine Reihe (horizontal, vertikal oder diago¬ 
nal) zu bekommen. In dieser Version — die gerade 
noch in 1 K paßt — beginnt immer der Computer und 
belegt das oberste linke Feld. Trotz der Kürze des Pro¬ 
gramms ist der ZX81 ynschlagbar, obwohl Sie von Zeit 
zu Zeit ein Unentschieden erreichen können, wenn Sie 
ein guter Spieler sind. Um einen Stein auf ein Feld zu 
setzten, berühren Sie einfach die entsprechende Zahl; 
sofort wird das Feld mit einem Ihrer Steine belegt. Die 
Antwort des ZX81 kommt genauso schnell. 

Der ZX81 weiß nicht, ob er gewonnen hat, da das Pro¬ 
gramm mit einer entsprechenden Routine 1 K ge¬ 
sprengt hätte. Wenn Sie eine 16 K-Speichererweiterung 
habea könnten Sie versuchen, eine »Ich-habe-ge- 
wonnen«- und »Es-ist-ein-Unentschieden«-Routine einzu¬ 
bauen. 

Auf den ersten Blick scheint es einfach, das Noughts- 
and-Crosses-Spiel zu programmieren, aber das ist nicht 
der Fall, und es ist schwieriger, ein verletzbares Pro¬ 
gramm zu schreiben, als eines, das praktisch unschlag¬ 
bar ist. 

Nach dem Buch »COMPUTERS, THEIR IMPACT AND USE« 
von Robert E. LYNCH und Ray RICE gibt es 362.880 ver¬ 
schiedene Partien von Noughts-and-Crosses. Dieses 
Programm spielt 40.320 davon. 
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10 PRINT 
20 PRINT 
30 PRINT 
4-0 PRINT 
50 PRINT 
60 PRINT 
70 PRINT 
Q0 PRINT 
90 PRINT 
100 PRINT 
110 PRINT 

120 GOSUB 200 
130 LET R=T-1 
140 LET B=T 
150_L^1L T=C0DE 







160 LET X=61 
170 GOSUB 260 
180 GOSUB 200 
190 GOTO 140 
200 LET X=52 

210 IF INKEY$<>"" THEN GOTO 210 
220 IF IHKEY$="" THEN GOTO 220 
230 LET T=COC€ INKEY$-29 

24.0 PRINT RT CODE I CT) 

CODE CT) ; CHR$ X 

250 RETURN 


Wenn Sie dieses Programm auf einem ZX80 mit neu¬ 
em ROM laufen lassen, ändern Sie die folgenden Zei¬ 
len: 


210 PRUSE 4E4 
220 POKE 16437.-1 


-Rollerball- 

Ein Ball wird über den Bildschirm gegen eine Wand 
geschleudert. Seine Position bestimmt Ihren Punkte¬ 
stand. Lassen Sie das Programm laufen, um herauszu¬ 
finden, wie man es spielt, und arbeiten Sie dann die 
Strategie aus, um den Höchstpunktestand zu erreichen. 

10 PRINT TRB 7.J''ROLLER-BRLL" 

20 LET H=3 

30 LET F=10:t:<RND:t:5Hl 

40 FOR G*1 TO 10 

50 PRINT "DRS IST VERUCH NR."; 

G 

60 LET F=F+3’;^RND 
70 PRINT RT 11..0.1 "WOHIN WOLLEN 
SIE ROLLEN <1-100>?" 
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80 IF G>1 THEN PRINT flT 18.0;" 
LETZTER VERSUCH WRR RIJF#";D 
90 LET C=1 
100 INPUT D 

110 IF D<1 ÜR D>100 THEN GOTO 1 
00 

120 CLS 

130 FOR E=1 TO 18 
140 PRINT RT 0.0;" 11111??9??111 
1????:«I>:5^::*:????111111" 

150 PRINT RT ie~E.C;CHR$ -T. 434-E > 
170 IF E<18 THEN PRINT RT 10-E. 
n; " " 

"180 LET C:«C+D/F 
190 IF 031 THEN PRINT RT 13.10 
;" QUERSCHLREGER " 

200 IF 031 THEN LET C=1 
210 NEXT E 

220 IF C<6 OR 09 RND C<16 OR C 
>25 THEN LET K=1 
230 IF 05 RND C<10 OR 015 RND 
C<19 OR 022 RND C<26 THEN LET 
K=9 

240 IF 018 RND C<23 THEN LET K 
=50 

250 PRINT "IHRE PUNKTE=";K 
260 LET H-H+K 

270 IF G>1 THEN PRINT "GESRMTPU 
NKTE’";H;"#RUS#";G;"ttWUERFEN" 

280 NEXT G 


-High-Flyer- 

Wenn Sie beginnen wollen, Spiele aus diesem Buch zu 
verbessern, dann beginnen Sie mit dem nächsten Pro¬ 
gramm. Wie Sie bemerken werden, wenn Sie das Pro¬ 
gramm laufen lassen, hat der Spieler praktisch nichts 
zu tun. Nachdem Sie einmal RUN, gefolgt von NEWLI- 
NE, gedrückt haben, brauchen Sie sich nur zurückleh¬ 
nen und das Spiel zu beobachten. 

Sie können eine »Drücken Sie NEWLINE für das nächste 
Spiel« — Routine hinzufügen, oder, wenn Sie sich beson¬ 
ders kreativ fühlen, die Möglichkeit, eine oder mehrere 
Walzen anzuhalten. Wenn Ihnen HIGH FLYER zu 
schnell läuft, fügen Sie eine Schleife FOR N=1 TO 50, 
NEXT N, hinzu. Sie müssen allerdings herausfinden, wo 
diese Schleife einzubauen ist. 


20 PRINT TflE HIGH-FLYE R 

$$ " 

30 PRINT 
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40 PRINT "ZEIT FUER DIE FRUIT- 
riRCHINE.. " 

50 PRINT "ICH HOFFE.. SIE HABEN 
GUTE"."REAKTIONEN" 

60 PAUSE 200 

70 LET M='r. INT < RND:+:20 ::'+10 V2 
80 CLS 

90 PRINT "SIE HABEN ZU BEGINN 
$";ri 

100 LET C=0 
110 LET D=0 
120 LET E=0 
130 LET F=0 
140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT TAB 5; 

180 FOR Z=1 TO 4 

190 LET B=INT < RND:+:4 >+l 

200 IF B=2 THEN GOTO 260 

210 IF B=3 THEN GOTO 290 

220 IF B=4 THEN GOTO 320 

230 LET C=:C:+1 

240 PRINT "#$$$#"j 

250 GOTO 340 

260 LET D=D+1 

270 PRINT "«iWtt"; 

280 GOTO 340 
290 LET E=E+1 
300 PRINT 
310 GOTO 340 
320 LET F=F+1 
330 PRINT .i 

340 PAUSE 50 
350 NEXT Z 
360 PRINT 
370 PRINT 

380 IF C=1 AND D=1 AND E«1 AND 
F=1 THEN GOTO 450 
390 IF C=4 OR D=4 OR E=4 OR F=4 
THEN GOTO 450 

400 IF C=«3 OR D-3 OR E=3 OR F=3 
THEN GOTO 500 

410 LET S=<INT <RND:t.4>+l V2 

420 PRINT "SIE VERLIEREN $";S 

430 LET M=ri-S 

440 GOTO 550 

450 PRINT " $ JACKPOT $ " 

460 PRINT 

470 LET ri«ri +10 

480 PRINT "SIE GENINNEN $10" 

490 GOTO 550 
500 LET ri=M+2 
510 PRINT 


58 



520 PRINT "3 VON EINER SORTE" 
530 PRINT 

540 PRINT "SIE GEWINNEN $2" 

550 IF ri<l THEN GOTO 640 

560 IF M>25+RND:+:30 THEN GOTO 67 

0 

570 PRINT 

530 PRINT "IHR GUTHABEN^JM 
590 PRINT 

600 PRINT TAB 8;"BITTE WARTEN" 

610 PAUSE 200 

620 CLS 

630 GOTO 100 

640 PRINT "SPIELENDE.LEICHTSINN 
IGER".. "SIE SIND PLEITE" 

660 GOTO 680 

670 PRINT "SIE HABEN DIE BANK M 
IT $";ri. "GESPRENGT" 

680 PAUSE 400 
690 CLS 
700 RUN 


-Kuchenkampf- 

Der Zulallszahlengenerator bäckt ein Backrohr voll Ku¬ 
chen, die Sie und der ZX81 abwechselnd essen. Es gibt 
ein Limit, wie viele Kuchen out einmal gegessen wer¬ 
den dürfen, und der Verlierer ist derjenige, der den letz¬ 
ten Kuchen ißt, Es ist recht leicht, ein Programm zu 
schreiben, das dieses Spiel niemals verliert, aber ein 
derartiges Programm wird rasch langweilig, wenn 
nicht ärgerlich. Deshalb hat dieses Programm eine ein¬ 
gebaute Schwäche. Trotzdem wird es mehr als die 
Hälfte aller Spiele gewinnen. 

1 PRINT TRB "KUCHENKRhlPF" 

2 SLOW 

3 LET ri=0 

4 LET E=0 

5 LET 2=10-fINT RNDsCSO > 

6 LET H=3+INT <RND#3:> 

7 IF M=0 THEN PRINT "ES SIND 
NOCH# " .i Z i " #KUCHEN DR ".."SIE KOENN 
EN riflX. ".iH; "#KIJECHEN ESSEN" 

8 IF E>0 RND M=0 THEN PRINT " 

SIE HABEN#E.i "#GENOMriEN".. "ICH H 
RBE#" jQ; "#GENOMriEN" 

9 FOR K=1 TO Z 

10 PRINT "««««'#"; 

11 IF RND>.6 THEN PRINT 
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12 NEXT K 

13 PRINT 

14 PRINT 

15 IF M=1 THEN PRINT TRB 4;"SI 

E G EN INNEN" 

16 IF ri=2 THEN PRINT TRB Bj-’m 
H GENINNE " 

17 IF M>0 THEN GOTO 15 

18 PRINT 

19 PRINT "WIE VIELE WOLLEN SIE 
NEHflEN?" 

20 INPUT E 

21 IF E<1 OR E>H THEN GOTO 20 

22 LET 2=2-E 

23 IF 2>0 THEN GOTO 26 

24 LET ri=2 

25 GOTO 34 

26 LET Q=2~1-INT C(2-1H+1>) 

UH+l > 

27 IF Q=0 RND 201 THEN LET 
INT CRND*4:H>+1 

28 IF Q>=2 THEN GOTO 27 

29 IF 2>E+2 RND RND>.4 THEN LE 
T Q=Q+INT <RND‘^.2)-INT <.RH0t2'> 

30 IF Q>H OR Q<0 THEN GOTO 26 

31 IF Q=0 THEN LET Q=1 

32 LET 2=2-Q 

33 IF 2=0 THEN LET M=1 

34 CLS 

35 GOTO 7 

Hier ist eine etwas einfachere Version des gleichen 
Programms, die in 1K paßt und die dem Spieler eine et¬ 
was bessere Gewinnchance gibt. Nach der ersten Fas¬ 
sung finden Sie eine Ändemng, die Ihnen eine sehr 
gute Gewinnchance gibt. 


-Timo Nimbo— 

10 LET M=0 
20 LET E=0 

30 LET 2= 15+INT (RND:*:10> 

40 IF 2:*:INT <2/2>=2 THEN GOTO 
30 

50 LET H=3 

60 IF E>0 THEN PRINT RT 7.0;"S 
IE HRBEN#" ; E; "#GENOriMEN. " . " ICH#" 
;Q 

70 FÜR K=1 TO 2 
80 PRINT K;"# 

90 IF RND>.6 THEN PRINT 
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100 HEXT K 
110 INPUT E 

115 IF E>H THEN GOTG 110 
120 LET 2«Z-E 

130 IF 2=0 THEN PRINT "ICH GEWI 
NNE" 

140 IF 2=0 THEN STOP 

150 LET Q=2-1~INT <(2-1>/<H+1>> 

5^<H+1>+IHT (.RHDtZ’) 

160 IF Q>2 OR Q=0 ÜR Q«4 THEN G 
170 LET 2=2-Q 

180 IF 2=0 THEN PRINT "SIE GEWI 
NNEN" 

190 IF 2=0 THEN STOP 
200 CLS 
210 GOTO 60 

Es gibt keinen Unterschied zwischen den beiden Pro- 
grammea was die beim Entfernen erlaubte Höchstan¬ 
zahl betrifft — jeweils drei. Um sich selbst eine bedeu¬ 
tend bessere Gewinnchance einzuräumea machen 
Sie im obigen Programm folgende Ändemngen: 

150 LET Q=INT (.RHOtSHl 
160 IF Q>2 THEN GOTO 150 


-Deducto- 

Ein sehr kurzes 1 K Programm, in dem Sie 10 Versuche 
haben, um eine, vom ZX81 gewählte Zahl zwischen 1 
und 20 0 zu finden. An den Tip, den Sie in Zeile 90 be¬ 
kommen, müssen Sie sich erst ein bißchen gewöhnen, 
aber nachdem Sie einmal drei Spiele gespielt haben, 
sollten Sie in der Lage sein, den Hinweis ohne Schwie¬ 
rigkeiten zu verstehen. Beachten Sie, wie SCROLL ver¬ 
wendet wird, um einen Bildschirmüberlauf zu verhin¬ 
dern. SCROLL muß im Programm vor jedem PRINT- 
Befehl verwendet werden. Versuchen Sie einfach, 
SCROLL einmal auszulassen und warten Sie ab, was 
geschieht. 

10 LET fl=INT 

20 IF RHCO'RHD THEN GOTO 10 
30 FOR B=1 TO 10 
40 SCROLL 

50 PRINT "VERSUCH NR.".iB 
S0 INPUT C 
70 SCROLL 

80 IF C=R THEN GOTO 110 
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90 PFÜNT C; '»tt FRLSCH , HILFE^"jS 
QR (RBS 
100 HEKJ B 
110 SCROLL 
120 PRINT R 
130 IF COR THEN STOP 
135 SCROLL 

140 PRINT -SIE HRBEN ES IN#".jEL 
"#VERSUCHEN" 

150 SCROLL 

160 PRINT "GESCHRFFT" 

-Unglaublich- 

—verschwindendes RAM— 

Entfernen Sie das Display von Geiger, ändern Sie das 
Programm ein wenig, und Sie haben ein 1 K Spiel, in 
dem Sie versuchen, ein fehlendes RAM Chip in einem 
15x15 Gitter, unter Verwendung Ihrer Intelligenz und ei¬ 
nes patentierten RAM Detektors, zu finden. 

10 LET R=INT <RND'4:15H1 
20 LET B==INT -Ü RND-4:15 
30 LET C=1 
40 SCROLL 
50 SCROLL 

60 PRINT "SUCHE#-jC 
70 INPUT D 
80 INPUT E 

90 IF R=D RND B+E THEN GOTO 16 

0 

100 SCROLL 

110 PRINT "####"jD.5 "##";E;”##ES 
IST NICHT DR - 

120 SCROLL 

130 PRINT -DETEKTOR MISST:-;<R- 
D>4-<B-E V10 
140 LET C=C+1 
150 GOTO 40 
160 SCROLL 

170 PRINT - SIE HRBEN ES GEFUNDE 
N- 

180 SCROLL 

190 PRINT -SIE ERREICHTEN#-;300 
-9:*:C.i -#PUNKTE- 
200 GOTO 160 


In diesem Programm ist das RAM auf A und B versteckt 
und C zählt die Anzahl Ihrer Versuche. Zeile 130: Der 
RAM Detektor gibt Ihnen sehr nützliche Informationen. 
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Nach zwei oder drei Spielen sollten Sie seine Anzeige 
verstanden haben. Beachten Sie, daß — im Gegensatz 
zu einigen anderen »Gittersuchspielen« (wie z. B. 3 D- 
Jagd) — die Anzahl Ihrer Versuche nicht beschränkt ist. 
Trotzdem sollten Sie versuchen, das RAM in der kürzest 
möglichen Zeit zu finden. Ihre Bewertung (Zeile 190) 
steht in direkter Beziehung zu der Anzahl der von 
Ihnen gemachten Versuche, um das Ding zu finden. 


-Chemin de fer- 

Bakkarat wurde ungefähr 1540 unter der Regierung 
von Karl VIII. von Frankreich nach Italien gebracht. 
Nach der Meinung von Geschichtsforschern ist es sehr 
unwahrscheinlich, daß Karl es auf einem ZX81 gespielt 
hat. Das italienische Spiel hieß Bakkarat und dieses 
Spiel — Chemin de Fer — ist ein entfernter Verwandter 
dieses alten Klassikers. ZX81-Chemin de Fer basiert auf 
einer Würfelversion des Casinospiels, das üblicherwei¬ 
se mit Karten gespielt wird. Sie und der ZX81 (die Bank) 
werfen jeder fünf Würfel. Wenn irgendein Würfel auf 
zwei oder fünf fällt, muß er erneut geworfen werden. 
Sie addieren die Augenzahl der Würfel, die nicht auf 
zwei oder fünf gefallen sind und addieren sie zur Ge¬ 
samtsumme der erneut geworfenen Würfel. 

Fällt ein Würfel das zweite Mal auf zwei oder fünf, zählt 
er als Null. Das Ziel des Spielers ist es, so nah wie mög¬ 
lich an die Zahl neun oder an eine zweiziffrige Zahl mit 
der Endziffer neun heranzukommen. Das Programm 
kürzt eine zweiziffrige Nummer automatisch auf ihre 
Endziffer. Nach neun gewonnenen Spielen (Unent¬ 
schieden nicht gezählt) stoppt das Programm. 


10 

LET Bl 

= 0 



20 

LET PI 

=0 



30 

GOTO 340 



40 

LET D= 

0 



50 

LET C= 

0 



60 

FOR G= 

1 TG 5 



70 

LET Fl* 

INT <RND:=t:6Hl 


80 

IF R=2 

ÜR R=5 

THEN 

LET 

90 

IF fl=2 

OR R=5 

THEN 

LET 

100 

PRINT 

R; 



110 

LET D= 

D+R 



120 

HEXT G 




130 

PRINT 




140 

PRINT 

D.i 
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150 IF D>9 THEN LET D=D-10 
160 PRINT D 

170 IF D>9 THEN LET D=D-10 
180 PRINT "GESRNT DER ERSTEN WU 
RFES : ; D 

190 IF D=9 THEN PRINT ."LR GRRN 
DE" 

200 IF D«8 THEN PRINT ."LR PETI 
TE" 

210 IF D=7 THEN PRINT ."NRTÜRRL 


220 IF C=0 OR D=7 OR D=8 OR D=9 
THEN RETURN 

230 PRINT "ES MUSS EINE#";C;"#N 
OCHEINMRL"."GEWÜRFEN WERDEN" 

240 FÜR R=1 TO C 

250 LET E=INT <RND-;|c6>+l 

260 IF E=2 OR E=5 THEN LET E=0 

270 LET D=D+E 

280 NEXT R 

290 PRINT Dj"##"j 

300 IF D>9 THEN LET D=D~10 

310 PRINT D 

320 IF D>9 THEN LET D=D-10 

330 RETURN 

340 PRINT "BRNK" 

350 GOSUB 40 

360 PRINT "ENDGESRMT:";D 

370 INPUT R$ 

380 LET J=D 

390 PRINT "SPIELER" 

400 GOSUB 40 

405 PRINT "ENDGESRMT:";D 
410 INPUT R$ 

420 PRINT "BRNK"."SPIELER" 

430 PRINT J.D 

440 IF J=D THEN PRINT "UNENTSCH 
lEDEN" 

450 IF J*D THEN GOTO 510 
460 IF J>D THEN PRINT "BRNK"j 
470 IF J>D THEN LET B1*B1+1 
480 IF J<D THEN PRINT "SPIELER" 

490 IF J<D THEN LET P1=P1+1 
500 PRINT "#GEWINNT" 

510 PRINT "GESRMT" 

520 PRINT Bl.PI 

530 IF Bl+Pl=9 THEN STOP 

540 INPUT R$ 

550 CLS 
560 GOTO 340 
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wlv %x^ %x^ ^x* ^x^ 

Aufbau einer 
Programmbibliothek 

%x^ ^x^ ^x* ^x^ ^x* ^x* 

S AVEn Sie jedes Programm, bevor Sie es laufen 
lassen, nur für den Fall, daß Sie einen Programm¬ 
fehler eingebaut haben, der das Programm zusam¬ 
menbrechen und verschwinden läßt. 

Widerstehen Sie der Versuchung, alle Ihre Programme 
auf eine Cassette zu speichern — ein Programm nach 
dem anderen! Die Fmstration, die Sie erleben werden, 
während Sie warten, bis der ZX81 ein bestimmtes Pro¬ 
gramm gefunden hat (unter der Voraussetzung, daß 
Sie in der Lage sind, sich an den Codenamen, den sie 
dem Programm gegeben haben, zu erinnern), ist das 
Geld, das Sie sich bei den Cassetten ersparen, nicht 
wert. 

Gehen Sie in einen Computershop und erstehen Sie 
ein Paket C 12 Cassetten. Nehmen Sie immer nur ein 
Programm out jede Cassette out,- mindestens zweimal 
out jeder Seite. Für den Fall, daß etwas mit Ihren 
Cassetten geschieht und daß es schwierig oder un¬ 
möglich ist, ein Programm zu laden. 

Schreiben Sie den Programmnamen und den Code¬ 
namen, unter dem Sie das Programm gespeichert 
haben, auf die Cassette und auf die Finlagekarte. 
Sie werden sehen, dies erleichtert es, das Programm zu 
finden, das Sie wollen, und der Aufbau Ihrer Bibliothek 
wird Ihnen ein gewisses Gefühl der Befriedigung ver¬ 
leihen, wenn Sie die vielen Programme Seite an Seite 
in Ihrem Bücherschrank stehen sehen. 
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-Cricket- 

Ich habe in diesem Programm England gegen Austra¬ 
lien spielen lassen, aber es gibt keinen Gmnd, wamm 
Sie dies nicht durch Teams Ihrer Wahl ersetzen soll¬ 
ten. Sie können das Programm leicht umschreiben, 
so daß es, wenn es das erste Mal läuft, um die Eingabe 
der beiden Teams ersucht. Wenn Sie sich entscheiden, 
dieses Programm in SLOW laufen zu lassen und die 
PAUSE-Befehle löschen, dann fügen Sie eine Schleife 
FOR N=1 TO 30, NEXT N, zwischen den Zeilen 1170 und 
1180 ein. 

1000 PRINT RT 3.. 9J "KRICKET” 

1020 GOTO 1340 

1030 PBUSE 100 

1040 LET B=B+1 

1050 IF B=? THEN LET C=C+1 

1060 IF B=7 THEN LET B=1 

1070 CLS 

1080 LET E=INT <RND*-+:7H1 
1120 IF E>5 THEN GÜSUB 1205 
1135 IF fl=2 THEN PRINT RT 11..5J 
RUSTRRLIEN: ".iR<4> 

1137 PRINT RT 9.5;"ENGLRND =";R< 3 

1140 IF RND>,5 THEN LET E=0 
1150 PRINT RT 13..5; "SPIELER#" ;D 
1155 PRINT RT 15.5;"HEBER-";C;"# 

## BRLL# " ; CHR$ c; B+156 ; " #." 

1157 PRINT RT 17.5;"LREUFT VON B 

RLL#";B;"-";E 

1170 LET Re R+2 ::'=R< R+2 HE 

1180 GOTO 1030 

1205 LET P=INT RND*4:3 H1 

1207 CLS 

1210 FOR Y=1 TO 6 

1211 PRINT RT 12.9;"SPIELER#".iD; 

"#OUT" 

1212 PRUSE 10 

1213 PRINT RT 12.9;" SPIELER# ";D; 

"#oyi" 

1214 PRINT RT 16.9; 

1217 PRUSE 10 

1220 IF P=1 THEN PRINT RT 16.11; 

" #RUS DEN FELD# " 

1230 IF P=2 THEN PRINT RT 16.11; 

"#GEFRNGEN#" 

1240 IF P==3 THEN PRINT RT 16.11; 

"GEWORFEN" 

1245 NEXT Y 
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1250 LET D=D+1 
1255 PRUSE 200 
1257 CLS 

1260 IF D=ll THEH GÜSUB 1420 
1270 IF R03 THEN RETURN 
1280 CLS 

1290 PRINT TRB 4;"SPIELENDE" 

1295 PRINT 

1297 IF R'::3>>RC4> THEN PRINT "EN 
GLRND#".: 

1310 IF R-::4>>R<3::' THEN PRINT "RU 
STRRLIEN#".! 

1320 PRINT "GEWINNT Ur'1#".!RBS < R< 
3>~R(4::'::'.J "#LREUFEN" 

1330 PRUSE 700 
1334 RUN 
1340 DIN R<4::' 

1350 LET R=1 
1360 LET B=0 
1370 LET C=1 
1380 LET D=1 
1390 LET R'::3>=0 
1400 LET Rc:4::'=0 
1410 GOTO 1030 
1420 LET R=R+1 
1425 CLS 
1430 LET B==l 

1435 IF R=2 THEN PRINT RT 13.. 4.!" 
ENGLRND RUS RUF#";R':;3> 

1437 PRUSE 200 
1440 LET C==l 
1450 LET D=1 
1460 CLS 
1470 RETURN 


-Digitaluhr- 

Dieses kurze Programm macht effektvollen Gebrauch 
von PAUSE und ist für den Ablauf im FAST-MODE ge¬ 
schrieben. Sollten Sie den reibungslosen Ablauf von 
SLOW bevorzugen, können Sie Zeile 170 löschen und 
durch eine kleine Schleife ersetzen, die dem ZX81 auch 
im SLOW-MODE erlaubt, die Zeit vernünftig anzuzeigen. 
Diese Uhr funktioniert nicht sehr genau, aber es ist eine 
gute Demonstration des ZX81. 

10 GOSUB 200 

60 PRINT flT ... 

70 IF M<10 THEN PRINT "0'U 
S0 PRINT 

90 IF S<10 THEN PRINT "0".i 
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100 

PRINT S 


110 

LET S=S-Hl 


120 

IF S=60 THEN 

LET M-M+l 

130 

IF S=60 THEN 

LET S=0 

140 

IF ri=60 THEN 

LET S=S+1 

150 

IF M=60 THEN 

LET M=0 

160 

IF H=13 THEN 

LET S=1 

170 

PRUSE 33 


1L=5»0 

GOTO 30 


200 

PRINT 


210 

PRINT 


220 

PRINT TRB 4.L 

“DIGITRLUHR" 

230 

PRINT 


240 

PRINT "WIE SPRET IST ES? 

250 

PRINT 


260 

PRINT "STUNDEN?" 

270 

INPÜT H 


280 

IF H>12 THEN 

GOTO 270 

285 

PRINT H 


290 

PRINT "MINUTEN?" 

300 

INPUT M 


310 

IF M>59 THEN 

GOTO 300 

315 

PRINT M 


320 

PRINT "UND SCHLIESSLICH.. 

LINDEN?" 


330 

INPUT S 


340 

IF S>59 THEN 

GOTO 330 

350 

CLS 


360 

RETURN 



Das nächste kleine Programm dmckt eine Anzahl 
von inversen Zwischenräumen auf den Bildschirm. 
Ihre Positionen hängen davon ab, welche Taste (5,6,7 
oder 8) Sie drücken Die Schleife FOR N=1 TO 10, NEXT 
N, wird verwendet, um das Ganze etwas zu verlang¬ 
samen. Ohne sie geht Ihnen das Ganze wahrschein¬ 
lich zu schnell, um es noch vernünftig steuern zu kön¬ 
nen. Trotzdem können Sie diese Schleife entfernen, 
verlängern oder verkürzen, wenn Sie wollen. 

10 SLOW 
20 GOSUB 180 
30 PRINT RT Y..XjCHR$ K 
40 LEt 

50 LET R$=INKEV$ 

60 IF R$="“ THEN LET R$*P$ 

70 IF R$='’7” THEN LET Y=Y~1 
80 IF R$="6" THEN LET Y«Y+1 
90 IF R$="5" THEN LET X=X~1 
100 IF R$="S" THEN LET X=X+1 
110 IF X<2 THEN LET X=2 
120 IF X>31 THEN LET X~31 
130 IF Y<2 THEN LET Y=2 
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140 IF Y>20 THEN LET Y=20 

150 FOR N=1 TÜ 10 

160 HEXT N 

170 GOTO 30 

180 LET X=16 

190 LET Y=7 

200 LET K=128 

210 LET R$='"' 

220 RETURN 

Die Subroutine (von Zeile 180 an) plaziert den ersten 
Punkt (auf 7,16) und legt fest daß CHR $ 128 ausge¬ 
druckt wird. Auf alle Fälle können Sie die Startposition 
und das Aussehen der Zeichen verändern (oder durch 
den Zufallsgenerator bestimmen lassen, wenn Ihnen 
das besser gefällt). 


-Back-Stabber- 

Das Programm erklärt sich selbst und ist lustig zu spie¬ 
len. 


10 LET D=20 
20 FOR F=1 TO 30 
30 PRINT RT 10.10J"BITTE WRRTE 
N" 

40 PRINT RT 10.10J" BITTE NRR TE 
ü" 

50 NEXT F 
70 CLS 

80 LET R«INT < RND:t:l0 >+l 
90 LET B^INT <RND>>:10)+1 
100 IF NOT RBS «'B-R):--! THEN GOT 
0 90 

110 LET C==INT ^RhmiO'^+l 

120 IF C«R OR C*B THEN GOTO 110 

130 PRINT "MEINE ERSTE 2RHL IST 

^^ Pi 

140 PRINT TRB 8;"MEINE ZWEITE#" 
.sB 

150 PRINT 

160 PRINT TRB 4; "SIE HRBEN $".5D 
170 PRINT 

180 PRINT "WIEVIEL WETTEN SIE D 
RRRUF.DRSS" 

190 PRINT "MEINE NRECHSTE 2RHL 
ZWISCHEN" 

195 PRINT R.5 "#UND#".iB; "#LIEGT?" 
200 INPIJT E 

210 IF E>D THEN GOTO 200 


69 





220 IF E<.01 THEN PRINT " GRÜNER 


n 


230 FOR F=1 TO 50 
240 PRINT RT 10.. 10ICH DENKE" 
250 PRINT RT 10..10j" IC.H DENKE " 
260 NEXT F 

270 PRINT RT 10.10;"#########" 
280 PRINT 

290 PRINT "MEINE ZRHL IST#";C 
300 IF E<.01 THEN GOTO 20 
310 IF OR RND C<B GR C<R RND C 
>B THEN PRINT "BRRVO.SIE GEWINNE 
N $";2'-+:E 

320 IF OR RND C<B OR C<R RND C 
<B THEN LET D=D+2:+:E 
330 IF OR RND C<B OR C<R RND C 
<B THEN GOTO 20 

340 PRINT "LEIDER VERLIEREN SIE 

^ " j| 

350 LET D==D-E+.5 

360 IF D>.5 THEN GOTO 20 

370 PRINT "SIE SIND PLEITE" 


-Zombies- 

Ein massives schwarzes Rechteck erscheint out dem 
Bildschirm. Zuerst erscheinen Sümpfe (graue Vierecke), 
dann die Zombies (inverse Sterne), dann Sie (ein in¬ 
verses A). Plötzlich gehen die Zombies auf Sie zu. Es ist 
egal, wohin Sie gehen, die Zombies bewegen sich 
auf Sie zu. Ihre einzige Fluchtmöglichkeit ist, sie in die 
Sümpfe zu locken. Sie können die Sümpfe nicht über¬ 
queren, aber wenigstens können Sie sie sehen. Die 
Zombies sind blind, und darin liegt Ihre einzige Hoff¬ 
nung. 

Die Anfangsposition wird zufällig aufgestellt, mit der 
Ausnahme, daß die Subroutine von Zeile 10 0 0 an 
etwas beeinflußte Zufallszahlen produziert, um alles 
ungefähr an den richtigen Platz zu stellen (zum Bei¬ 
spiel Sie ungefähr in die Mitte, eine großzügige Anzahl 
Sümpfe und die Zombies außerhalb der Sümpfe). 

Sie bewegen sich in die Richtungen der kleinen Rich¬ 
tungspfeile auf den Tasten 5, 6, 7 und 8, indem Sie die 
entsprechende Taste einmal drücken. Um diagonal 
zu ziehen, verwenden Sie die Shifttaste und dann 5, 
6, 7 oder 8. Sie werden sich 45° gegen den Uhrzeiger¬ 
sinn bewegen, wenn Sie den Pfeil und Shift gleich¬ 
zeitig drücken. Sie können immer nur einen Zug auf 
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einmal machen und müssen warten, bis alle Zombies 
sich ebenfalls bewegt haben, bevor Sie Ihren näch¬ 
sten Zug machen können. Wenn Sie ein Zombie er¬ 
wischt hat, geht das Programm in eine ewige Schleife, 
und Sie müssen BREAK drücken, um es zu stoppen. 


2 RAND 

5 Din X<21> 

6 DIM '1X20 
10 PRINT " 


20 FOR 1=1 TO 20 
30 PRINT ” 

40 HEXT I 
50 PRINT " 

70 FOR I==l TO 42 

80 LET fl=15'^INT <1/21 Hl36 

90 GOSUB 1000 


100 

IF INT <I 

/SlHl THEN 

LET X< 

1 - 20 : 

:i=X 




110 

IF INT <I 

/21H1 THEN 

LET Y< 

i~20: 

;is=Y 




120 

NEXT I 




130 

LET IJ=X 




140 

LET V=Y 




160 

IF INKEY$ 

= "’• THEN GOTO 

160 

170 

LET B=CODE INKEY$ 



200 

IF <B=33 

OR B=112 OR 

B= 

114> 

AND 

UM THEN 

LET LI=IJ-1 



210 

IF <B=34 

OR B=113 OR 

B= 

114> 

RND 

V<20 THEN 

LET V=V+1 



220 

IF <B=35 

OR B=112 OR 

B= 

115 ::' 

RND 

V>1 THEN 

LET V*V-1 



230 

IF <B<-56 

OR B=113 OR 

B= 

115::' 

RND 

IJ<20 THEN 

1 LET U=U+1 



234 

PRINT RT 

Y.X+4J "r' 



235 

LET X=U 




236 

LET Y=V 




240 

PRINT RT 

Y/X+4J "R" 



250 

FOR 1=1 TO 21 



260 

IF X<I >=0 

1 THEN GOTO 

350 


270 

PRINT RT 

Y< I ).X< I H4 


II 

280 

LET S=0 




290 

IF X<IHIJ 

1 THEN LET S 

=< X 

< I 


U >/RBS < X< I >~IJ ) 

300 LET T=0 

310 IF Y<IHV THEH LET T=< Y< I >- 
V >/RBS < Y<I>-V > 

320 LET X< I ::'=X< I HS 

330 LET Y<I>=Y<I>-T 

331 PRINT RT Y<I>.X<I>+4j 
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332 LET Rif=CHR$ PEEK < PEEK 1639 
8+256:i^PEEK 16399) 

333 IF THEN LET X< I )«0 

334 IF THEN GOTO 370 

340 IF Xa) THEN PRINT "JL" 

350 NEXT I 

360 GOTO 130 

370 PRINT RT Y.X+4j“:*:" 

380 PRINT RT Y..X+4j"r' 

390 GOTO 370 

1000 LET Xel0+SGN •::RND~.5):+:INT < 
RND5^<I/3 RND I<>42>+1) 

1010 IF X<1 OR X>20 THEN GOTO 10 
00 

1020 LET Y=10+SGN < RND-. 5 )5^INT < 
RND I<>42)+1) 

1030 IF Y<1 OR Y>20 THEN GOTO 10 
20 

1040 PRINT RT Y.X+4;CHR$ R 
1050 RETURN 


-Biorhythmus- 

Die Wissenschaft der Biorhythmen basiert auf dem 
Glauben, daß jeder von uns von drei Zyklen be¬ 
stimmt wird, die im Moment der Geburt starten und 
sich bis zum Tode wiederholen. 

Physisch Der dreiundzwanzigtägige körperliche 

Zyklus steht in Beziehung zur Ausdauer, 
Aggressivität und physischer Stärke 
Emotionell Der achtundzwanzigtägige emotionelle 
Zyklus bezieht sich auf Emotionen, 
Optimismus—Pessimismus, Fmstrationen, 
Stimmung und Laune 

Geistig Der dreiunddreißigtägige geistige 

Rhythmus steht in Beziehung zu Logik, 
Denken, Folgern, Urteilen, Leichtigkeit 
des Ausdmcks und Verstand 

Das Programm läßt Sie Ihr Geburtsdatum, dann das Da¬ 
tum des Tages, der Sie interessiert, eingeben und arbei¬ 
tet den schlimmsten Punkt jedes der drei Zyklen in Be¬ 
ziehung zu dem von Ihnen angegebenen Tag aus. 

20 GOTO 210 
30 LET T=0 

40 IF B-3>«0 THEN LET T=2 
50 IF T=2 THEN LET 
60 IF T=2 THEN GOTO 90 
70 LET 
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80 LET B=B+13 

90 LET E=INT C 365, 25:4=:R >4.INT <3 
0.6‘;^:B>+C 
100 RETURN 
110 LET T=0 
120 LET F=G-“INT 
130 IF F>D/2 THEN LET T=2 
140 IF T*2 THEN LET H=D-F 
150 IF T=2 THEN GOTO 180 
160 IF F=0 OR D.--2=F THEN PRINT 
" HEUTE " 

170 IF F*0 GR D/2=F THEN RETURN 


180 LET H=D/2~F 

190 PRINT "NRCHtt’LiH; "#TRGEN" 

200 RETURN 

210 LET Y$=”DER SCHLECHTESTE TR 


G IST " 

220 LET ZYKLUS" 

230 CLS 

240 PRINT "IHR GEBURTSJRHR CZ.B 


. 1967>?" 
250 INPUT 
260 PRINT 
0 ::'?" 

270 INPUT 
2S0 PRINT 


R 

"GEBURTSMÜNRT (Z-B, 1 
B 

"GEBURTSTRG (Z-B. 23> 


7" 


290 INPUT C 
300 CLS 
310 GOSUB 30 
320 LET J=E 

330 PRINT "UM IHREN BIÜRHYTHMUS 


FUER EINEN" 

335 PRINT "TRG ZU ERRECHNEN.GEB 
EN SIE DRS" 

340 PRINT "DRTUM EIN.DRS SIE IN 


TERESSIERT." 

350 PRINT 

360 PRINT "JRHR ?" 

370 INPUT R 
375 LET Z=R 

380 IF R<1900 OR R>1999 THEN GO 
TO 370 

390 PRINT "MONRT ?" 

400 INPUT B 
405 LET Q*B 
410 PRINT "TRG ?" 


420 INPUT C 

421 GOSUB 8000 

422 LET P=C 
425 GOSUB 30 
430 CLS 

440 LET G=E-J 
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450 

PRINT 

"BIGRHYTHMUS FUER 

»« /II ; 

II / II . 


452 

IF Z~1 

^00<10 THEN PRINT 

455 

PRINT 

Z-1900 

460 

PRINT 


470 

PRINT 


480 

LET D= 

=23 

490 

PRINT 

"PHYSISCHER" 

500 

PRINT 

Y$ 

510 

GGSUB 

110 

520 

PRINT 


530 

LET D= 

=28 

540 

PRINT 

"EMGTIGNELLER";;=^:$ 

550 

PRINT 

Y$ 

560 

GGSUB 

110 

570 

PRINT 


580 

LET D= 

=33 

590 

PRINT 

"MENTRLER"^X$ 

600 

PRINT 

Y$ 

610 

GGSUB 

110 

620 

PRINT 


630 

PRINT 

"GEBEN SIE J EIN..I 


HER EIN% "NEUERES C-RTUM DEN BIG 


RHYTHMUS" 

635 PRINT "ZU BERECHNEN" 
640 INPUT U$ 


645 CLS 

650 IF U$="J" THEN GOTO 330 
8000 CLS 

801p FÜR 1=1 TG 96 
8015 PRINT " r'} 

8040 NEXT I 
8050 RETURN 


-Swarm- 

In diesem kurzen »Arcade«-Spiel steuern Sie ein Raum¬ 
schiff im Weltraum und werden plötzlich in einem 
Astroidenschwarm gefangen. Sie müssen Ihr Schiff 
zwischen den Astroiden durchsteuern (die in diesem 
Fall wie Sterne oussehen). 

Es gibt keinen Bewertungsmechanismus in der ersten 
Version dieses Spieles, daher weiß der ZX81 es auch 
nicht, wenn Sie mit einem Stern zusammengeknallt 
sind. Wie Sie später sehen werden, verlangsamen 
Routinen, die Derartiges feststellen oder Punkte ver¬ 
geben, das ganze Programm. 

Mit der »Z«-Taste fahren Sie nach links, mit der »M«- 
Taste nach rechts. Nachdem Sie das Spiel einmal ge- 
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spielt haben und bevor Sie das Listing der zweiten Ver¬ 
sion dieses Spiels lesen, könnten Sie versuchen, eine 
»Entdeckungs-Routine« einzubauen. Das Programm, 
wie angegeben, läuft in 1 K. 

10 LET R=10 

20 LET 6=15 

30 LET C=20 

40 PRINT RT C.,RHD*30D’*" 

50 PRINT RT fl.B;"##" 

60 SCROLL 

70 IF INKEY$="2" THEN LET B=B- 

1 

80 IF INKEY*="M" THEN LET B=B-t- 

1 

90 PRINT RT R.B;"V' 

100 GOTO 40 

Das ganze Geheimnis dieses Programmes liegt im Ge¬ 
brauch von SCROLL. Ihr Schiff (ausgedruckt in Zeile 90 
und gelöscht in Zeile 50) steht still in der Mitte des 
Bildschirmes, während die Sterne vorbeiflitzen. 

Wenn Sie keine Entdeckungs-Routine einbauen wol¬ 
len, könnten Sie vielleicht eine kleine Änderung vor¬ 
nehmen, die Ihr Schiff davor schützt, zu weit nach links 
oder rechts zu fahren (und möglicherweise einen »B«- 
Fehler zu erzeugen). Sie würden zwei Zeilen brauchen, 
die sich zwischen den gegenwärtigen Zeilen 80 und 
90 befinden sollten. Wenn Sie sich nicht sicher sind, 
wie Sie das durchführen sollen, werfen Sie einen Blick 
auf die Zeilen 240 und 270 im Geigerprogramm. 
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-Sternensturm- 

SWARM 2, das wir Sternensturm genannt haben, paßt 
noch immer in 1 K, obwohl es 

a) eine Routine, die entdeckt, ob Sie etwas berührt 
haben 

b) eine Routine, die Ihr Schiö davor schützt, über die 
Seiten zu fahren und 

c) einen Bewertungsmechanismus 
eingebaut hat. 

Die Taste »M« ist Ihre einzige Steuerungsmöglichkeit. 
Tun Sie nichts, bewegt sich das Schiff nach links. 
Drücken Sie »M«, bewegt es sich nach rechts. Das Pro¬ 
gramm stoppt, wenn Sie einen Stern berührt haben, 
und statt des Sternes erscheint Ihr Punktestand. Jeder 
Punktestand über 300 ist gut. Lassen Sie uns Ihren 
besten Punktestand wissen (kein Schummeln, bitte), 
und wir werden die Besten in der nächsten Ausgabe 
dieses Buches erwähnen. 

10 LET F=PI-PI 
20 LET R=VnL "10" 

30 LET B=VRL "15" 

40 LET C=R+R 
50 PRINT RT C.RHDJf:30; 

60 PRINT RT R.BD'#" 

70 LET F=F-KPI/PI 
80 SCROLL 

90 IF B>2 THEN LET B=B-1 
100 IF INKEY*="ri" RND B<28 THEN 
LET B=B+2 

110 PRINT RT R.BD'V" 

120 PRINT RT 11..BJ 
130 IF PEEK (PEEK 16398+256*PEE 
K 16399)023 THEN GOTO 50 
140 PRINT F 

Ihr Punktestand wird mit der Variablen F abgestoppt. 
Zeile 90 bewahrt das Schiff davor, über die linke Seite 
hinauszuschießen und bewegt es Schritt für Schritt 
nach links, wenn dort Platz ist. Zeile 100 wartet, bis Sie 
die »M«-Taste drücken und bewegt das Schiff nach 
rechts, wenn Sie nicht zu nahe am rechten Rand sind. 
Die kompliziert aussehende Zeile 130 sucht die PRINT- 
Position (die von der vorherigen Zeile gesetzt wurde) 
im Display-File. 

Wird dort kein Charakter 23 gefunden (was einen 
Stern bedeutet), geht das Programm für den nächsten 
Durchgang zu Zeile 50 zurück. Sollten Sie einen Stern 
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erwischt haben, geht das Programm zu Zeite 140 wei¬ 
ter, um Ihren Punktestand auszudrucken. 


-Sternenschwarm- 

Die letzte Version ist mehr oder weniger das obige 
Programm mit inversen Graphiken. Sie werden be¬ 
merken, daß das Programm langsamer läuft als die 
zwei vorhergegangenen Versionen, da ständig ein 
kompletter schwarzer Streifen am unteren Rand des 
Bildschirmes gezeichnet werden muß. 


5 REM t-FUER MEHR RLS IKt 
10 FRST 
20 LET F«0 
30 FÜR 1=1 TO 704 
50 PRINT "i'D 
70 HEXT I 
80 LET R=10 
90 LET B=15 
100 LET C=20 
110 SLOW 

120 PRINT RT C.Rhmsej "JL" 

130 PRINT RT R..Bj"J.” 

140 LET F=F+1 
150 SCROLL 

160 PRINT RT C.0; ' «############# 

170 IF B>4 THEN LET B«B~1 

180 IF INKEY!|i="M" RND B<28 THEN 

LET B=B+3:*:RND 

190 PRINT RT R..Bj"V" 

200 PRINT RT n.B; 

210 IF PEEK <PEEK 16398+256:*:PEE 
K 16399X>151 THEN GOTO 120 
220 PRINT 


-Rennfahrer- 

Mit der gleichen Idee kann ein sehr effektvolles Spiel 
geschrieben werden, bei dem Sie Ihren Rennwagen 
(ein inverses V) über eine zufällig gekrümmte Piste 
lenken müssen. Nachdem Sie das Programm laufen 
gelassen haben, finden Sie sicher viele andere effekt¬ 
volle Möglichkeiten, Kapital aus der SCROLL-Funktion 
zu schlagen. Obwohl der Aufbau der RENNFAHRER- 
und SWARM-Programme sehr ähnlich ist, sieht dieses 
1 K-Programm ganz anders aus. 
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Nachdem Sie NEWUNE gedrückt haben, warten Sie, 
bis die Rennstrecke gezeichnet ist und zu Ihrem Auto 
gelangt. Sie müssen dann Ihr Auto innerhalb der bei¬ 
den schwarzen Begrenzungsstücke halten. Wenn Sie 
schon etwas Übung haben, verkleinern Sie die Breite 
der Straße (Zeile 60). 


10 

LET K=2 




20 

LET R=10 




30 

LET B=fl 




40 

LET C=R+R 




50 

LET D=6 




60 

PRINT RT C.. 

D; 


70 

PRINT RT R. 

B; 

"SS" 


80 

SCROLL 




90 

IF INKEY$s=" 

M" 

THEN 

LET B=B+ 

100 

IF INKEY$=" 

Z" 

THEN 

LET B=B~ 

110 

PRINT RT R. 

B.! 

II y II 


120 

IF D>17 GR 

D< 

7 THEN 

1 LET K=~ 

130 

LET D=D+RND:+:K 



140 

GOTO 60 





Sie steuern Ihr Vehikel wie in SWARM mit den beiden 
Tasten »Z« und »M«, wobei Sie mit »Z« nach links und 
»M« nach rechts fahren. Wenn Sie die Begrenzung der 
Piste berühren, verschwindet sie an diesem Punkt. 
Zeile 130 bewegt die Rennstrecke zufällig von Seite 
zu Seite, und Zeile 120 sorgt dafür, daß sich die Piste 
wieder in die Mitte zurückbewegt, wenn Sie zu nah 
an den Bildschirmrand kommt. 

Zeile 70 löscht das Auto, das in Zeile 110 gedruckt 
wird. Es gibt keinen Gmnd, wamm Ihr Auto ein inver¬ 
ses V sein sollte, also ändern Sie es, z.B. auf den An¬ 
fangsbuchstaben Ihres Vornames oder auf was Sie auf 
was immer Sie wollen. Wenn Sie das Auto statt mit dem 
Graphikzeichen von A mit dem Graphikzeichen von H 
löschen, werden Sie sehen, daß das Auto eine Spur 
hinterläßt, sodaß Sie sehen können, welche Strecke Sie 
zurückgelegt haben. 

Das Auto startet auf 10,10 (A, B) und mit INKEY $ (Zei¬ 
len 90 und 10 0) wird der Wert von B geändert (und 
Ihre Position auf dem Bildschirm nach links oder rechts 
verschoben). Wie in SWARM ändert sich Ihre Höhe 
(A) nicht, aber die SCROLL-Funktion (Zeile 80) schickt 
Ihnen die Szenerie entgegen. 
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-Rennfahrer 2- 

Rennfahrer 2 setzt Sie mit einer zusätzlichen Schwierig¬ 
keit wieder auf die Piste. Wenn Sie die Seiten der 
Rennstrecke berühren, stoppt das Programm. Diese 
Version paßt in 1 K. 

10 LET R=10 
20 LET B=R 
30 LET C=R+R 
40 LET D=9 
50 PRINT RT 
60 PRINT RT R.B;”i9" 

70 SCROLL 

80 IF INKEY$="Z" THEN LET B=B~ 

1 

90 IF INKEY$='’rr‘ THEN LET B=B+ 

1 

100 PRINT RT R.B;"H" 

110 IF D<17 THEN LET D«D+2*;^:RND 
115 IF D>7 THEN LET D=D~2:*:RND 
120 PRINT RT 11,B; 

130 IF PEEK (PEEK 16398+256'4:PEE 
K 16399)=128 THEN STOP 
140 GOTO 50 


Rennfahrer 3 führt eine neue Schwierigkeit ein — 
andere Autos sind auf der Straße, die in die entgegen¬ 
gesetzte Richtung fahren. 

5 LET F=:PI 
10 LET B=10 
20 LET R=B 
30 LET C=B+B 
40 LET D=B-B/B 

50 PRINT RT #" .i RT R 

•Bi "#" 

’ 60 IF RND>.6 THEN GOTO 100 
70 PRINT RT C,D+D/D4-F:+:RND.i "Jl” 

100 SCROLL 

110 LET B=B~'r. INKEY$="Z" HC INKEY 

130 PRINT RT R,B;"X" 

140 IF D<B+F THEN LET D=D+pri;RN 
D 

150 IF D>F THEN LET D=D-Pr^RND 
155 PRINT RT R+PL^PI.. B.i 
160 LET L=PEEK C PEEK lS39S’^25St 
PEEK 16399) 

170 IF L«128 OR L=173 THEN STOP 
180 GOTO 50 
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-Graffiti- 

Dieses Programm dmckt die Buchstaben, die Sie ihm 
über die Tastatur eingebea in vergrößerter Form aus. 
Sieben Buchstaben hoch und fünf Buchstaben breit. 
Sie berühren einfach die entsprechende Taste, und 
der Buchstabe erscheint auf dem Bildschirm. Drücken 
Sie NEWLINE, um einen Abstand zu bekommen und 
halten Sie die Taste des Buchstabens, der nach dem 
Abstand folgen soll, etwas länger gedrückt. 

10 LET x=i 
20 LET Y=1 

30 IF INKEY$="" THEN GOTO 30 
40 LET L=CODE INKEY$ 

45 IF L-118 THEN LET L=0 

50 FOR Z=0 TO 3 

60 LET F=PEEK < 2:+:Z+S:+:L+7680 > 

70 LET G=PEEK 2-^.Z+8-;^:L+7681 > 

80 LET H=512 
90 FOR J=0 TO 3 
100 LET H=H/4 

110 LET R=INT CZ'^F/H-INT < F/H 

2 > 

120 LET B=INT (F/H-INT < F/2/H >:+: 

2 y 

130 LET C=INT •.':2:4:G/H-INT 

2 > 

140 LET D=INT (G/H-INT < G/2/H 
2 ) 

150 PRINT flT X+Z.Y+J;CHR$ RB8 < 
2‘^R+B-135:*:C+4:t:D) 

160 NEX.T 0 

170 NEXT Z 

180 LET Y=Y+4 

190 IF Y<29 THEN GOTO 30 

200 LET X=X+4 

210 LET Y=0 

220 GOTO 30 

Sie können dieses Programm mit BREAK anhalten. 

Auf dem ZX81 läuft dieses Programm im FAST MODE, 
wenn Sie folgende Zeilen ändern bzw. hinzufügen. 

30 PRUSE 4E4 
35 POKE 16437.. 255 
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-Mikromaus- 

Dieses Programm ist eine gute Demonstration des 
ZX81, und es ist faszinierend, es zu beobachten. Eine 
Maus (ein inverser Stern) startet von einer Zufallspo¬ 
sition in der Nähe der oberen linken Ecke des Bild¬ 
schirmes. Sie möchte in die untere rechte Ecke kom¬ 
men. Die Maus muß, um in die Ecke zu gelangen,eini- 
ge zufällig verteilte Hindernisse umgehen. Wenn die 
Maus das Ziel erreicht hat, wird die Anzahl der von 
ihr benötigten Züge ausgedmckt. Die Hindernisse 
ändern ihre Position, die Maus blinkt einige Male, 
und dann beginnt das Spiel von neuem. Außer ganz 
zu Beginn kann sich die Maus nicht in eine Falle brin¬ 
gen, aus der sie sich nicht wieder befreien kann. 
Also haben Sie Geduld, egal, wie lange es zu dauern 
scheint. 


1 REM tllCROriRUS 16K. 

5 LET G=16338 

6 LET H=G-H 

10 PRINT RT 0..0J 

20 PRINT RT 21.0D'############ 
30 FOR R=1 TO 20 


35 

PRINT 

RT 

2+RND-;r.l8.. l+RND'4^27; 


36 

PRINT 

RT 

2+RND5r.l8.. l+RND'-+:27.i 

"##" 

37 

PRINT 

RT 

2+RND:+:18.. 1+RND:=I=:27.5 


42 

PRINT 

RT 

R..0J 

43 

PRINT 

RT 

3+RND‘4:15.2+RND-4:22j 

#" 

44 

PRINT 

RT 

2+RND5^:18.. 14.RND‘;tc27; 


45 

PRINT 

RT 

2+RND:+:18.2+RND**24.; 


46 

PRINT 

RT 

3+RND*4:l5.2+RND:t:27; 

47 

PRINT 

RT 

2+RND5^:18.2+RND:*:24.5 


50 

PRINT 

RT 

R..31 j "#" 

60 

NEXT f 

=1 


61 

FOR Z: 

=1 TO 13 

62 

PRINT 

RT 

20.30.! 

63 

PRINT 

RT 

20 ..30; “jiL" 

64 

PRINT 

RT 

20 ..30; "A” 

65 

PRINT 

RT 

20.30; 

66 

PRINT 

RT 

20.30; "J.” 

67 

PRINT 

RT 

20.30; "#" 

68 

NEXT : 

7 
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70 LET R=INT (RND’^.ED+l 
75 LET Q=0 

80 LET B=INT < RND-;^:15 Hl 
85 PRINT RT 20.30.;"#” 

90 LET E=R 
95 LET Q=Q+1 

100 LET F=B 

101 IF R=20 RND B=30 THEH GOTO 
2000 

105 LET T=0 

106 IF RND>.2476 THEN GOTO 120 

110 LET Y«INT 'r.RND:+:7;:'4.1 

111 IF Y=1 THEN GOTO 120 

112 IF Y=6 THEN GOTO 169 

113 IF Y=3 THEN GOTO 200 

114 IF Y=4 THEN GOTO 250 

115 IF Y=5 THEN GOTO 298 

116 IF Y=2 THEN GOTO 154 

117 IF Y=7 THEN GOTO 330 
120 PRINT RT R+1,B; 

130 IF PEEK <PEEK G+256-^PEEK H> 
=0 THEN LET T=1 
140 IF T=1 THEN LET R=R+1 
150 IF T=1 THEN GOTO 1000 
152 IF RND>,2 THEN GOTO 169 
154 IF R=0 OR B=30 THEN GOTO 16 
9 

"155 PRINT RT R-l.B+1; 

156 IF PEEK <PEEK G+256Y.PEEK H> 
=0 THEN LET T=1 

157 IF T=1 THEN LET B=B+1 

158 IF T=1 THEN LET R=R-1 

159 IF T=1 THEN GOTO 1000 
165 IF RND<.2 THEN GOTO 110 

169 PRINT RT fl.B+lj 

170 IF PEEK <PEEK G+256:*:PEEK H> 
=0 THEN LET T=1 

180 IF T=1 THEN LET B=B+1 
190 IF T==l THEN GOTO 1000 
195 IF RND<„6 THEN GOTO 298 
200 PRINT RT R+1..B+1; 

210 IF PEEK ^PEEK G+256Y.PEEK H> 
=0 THEN LET T=1 
220 IF T=1 THEN LET R=R+1 
230 IF T=1 THEN LET B=B+1 
240 IF T=1 THEN GOTO 1080 
245 IF RND<.1 THEN GOTO 110 
250 PRINT RT R-l.B.; 

260 IF PEEK CPEEK G+256Y.PEEK H > 
==0 THEN LET T=1 

270 IF T“1 RND R>0 THEN LET R=R 
-1 

280 IF T=1 THEN GOTO 1080 
290 PRINT RT R.B-l.; 


82 


300 IF PEEK (PEEK G+256:+:PEEK H > 
=0 THEN LET T=1 
310 IF T=1 RND El>0 THEN LET 
-1 

320 IF T=1 THEN GOTO 1000 
330 IF B=0 ÜR R=0 THEN GOTO 110 
340 PRINT RT R~1..B~-1.j 
350 IF PEEK CPEEK G+256:+:PEEK H) 
:=0 THEN LET T=1 

360 IF T=:l THEN LET R--=:R~-1 

370 IF T=1 THEN LET B=B-1 

380 IF T=1 THEN GOTO 1000 

390 GOTO 110 
1000 PRINT RT E.Fj”#" 

1010 PRINT RT R..B;”i" 

1020 GOTO 90 

zhm PRINT RT 0.. 15j"jL” 

2010 FÜR N==l TG 50 
2020 NEXT N 

2030 PRINT RT 0.. 15J " ###### " 

2040 GOTO 30 
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-Pogo 1,2 und 3- 

In POGO (das wunderbar in 1 K läuft und großartig 
erweitert werden kann, wenn Sie mehr Speicher ha¬ 
ben) trudeln zwei Buchstaben Ihrer Wahl von rechts 
nach links über den Bildschirm. Zuerst geben Sie die 
beiden Zeilen ein. Inverse Zeichen sehen besonders 
effektvoll aus. Sie können zum Beispiel den Anfangs¬ 
buchstaben Ihres Namens als A $ und den eines Ihrer 
Freunde als B $ eingeben. Nachdem Sie das Pro¬ 
gramm einige Male laufen gelassen haben, und be¬ 
vor Sie nachsehen, wie ich das gelöst habe, versuchen 
Sie, das Programm unter Verwendung von Zahlen 
und Buchstaben-Arrays umzuschreiben. 

10 IHPUT R$ 

20 IHPUT B* 

30 LET B=31 
40 LET B=fl 
50 LET fl=fl-RHD 
60 PRINT flT 7,fl;fl* 

70 LET B=B-RND 
80 PRINT FIT 14.B;BS 
90 PRINT FIT 7..fl;"." 

100 PRINT FIT 14..B;"." 

110 IF FI>1 AND B>1 THEN GOTO 50 

Das ist es, was ich ein kurzes Programm nenne. Bevor 
Sie schummeln und das nächste Listing lesen, schrei¬ 
ben Sie POGO unter Verwendung von Arrays um, so 
daß das Display.gleich bleibt. Nachdem Sie dies getan 
haben, kehren ^ie zum Buch zurück und vergleichen 
Sie Ihre Version mit meiner. 

Es ist nicht sehr schwer, das zu tun. Hier ist die Methode, 
wie ich mein Programm mit Hilfe von Arrays ge¬ 
ändert habe. Es ist egal, ob Sie das gleiche gemacht 
haben oder nicht, solange das Display genauso aus¬ 
sieht wie ohne Arrays. 

10 DIM fl*': 2) 

20 DIM FK2) 

30 FOR -6=1 TO 2 
40 INPUT fl*':B> 

.50 LET FI<B>=31 
60 HEXT B 
70 FOR. B=1 TO 2 
80 PRINT FIT B^T.FICB); " 

90 LET Fl': B )=FI< B >-RND 
100 PRINT flT B*7.FI':.B);fl*':B) 

110 HEXT B 

120 IF FI<1>>1 AND fl':2>>l THEN G 
OTO 70 
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Dieses Programm ergibt ein Display, das beinahe 
ident, zu der ersten Version ist. Es hat einen großen 
Vorteil; Flexibilität. Wenn Sie das Programm erweitern 
wollen, so daß sich mehr als zwei Objekte über den 
Bildschirm bewegen, müssen Sie nur einige Ändemn- 
gen machen. Das Ändern der ersten Version wäre 
viel schwieriger gewesen. Geben Sie das folgende 
Programm ein (oder ändern Sie nach Ihrer eigenen 
Methode), um vier kleine POGOs zu bekommen. 

10 DIM 
20 OIM fl<4> 

30 FQR B=1 TO 4 

40 INPIJT 

50 LET fl<B>=31 

60 HEXT B 

70 FÜR B=1 TO 4 

S0 PRINT flT B:t:4.fl<B;u " 

90 LET fl< B >=fl< B VRND 
100 PRINT flT B:t:4.fl<B>jfl«B> 

110 NEXT B 

120 IF flU)>l AND FKEibl AND f=K 
3)>1 AND A«:4)>1 THEN GOTO 70 

Zu unserer letzten Version ändern Sie die Vierer im 
obigen Programm auf Achter (mit Ausnahme der 
PRINT ATS, die auf PRINT AT 2 * B, A (B> geändert 
werden sollten) und ändern Sie Zeile 120 auf ein ein¬ 
faches GOTO 70. 

Lassen Sie das laufen, und Sie werden sehen, daß 
eine Welle durch die POGOs läuft, wenn sie sich be¬ 
wegen. Aber es gibt etwas Neues. Wenn Sie die linke 
Seite des Bildschirmes erreichen, stoppen sie nicht, 
wie das bei den vorhergegangenen Versionen der 
Fall war, sondern laufen entlang der punktierten 
Linien zurück. Das Programm wird angehalten, wenn 
eines der Zeichen — der Gewinner — tatsächlich vom 
Bildschirm springt. 
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-^Word-Processor- 

(unter der Verwendung des Druckers) 

Dieses Programm erlaubt Ihnen, Ihren ZX-Dmcker mit 
dem ZX81 zu koppeln und ihn mehr oder weniger als 
Word-Processor zu verwenden Das Programm setzt 
den Text auf Block, wenn eine Zeile überfüllt ist, er¬ 
laubt Ihnen einen neuen Absatz zu beginnen, wann 
Sie wollen, Text zu ändern oder das Ende des Textes 
anzuzeigen. Wenn der Bildschirm voll ist, druckt ihn 
das Programm automatisch am Drucker aus und 
löscht ihn anschließend, um auf Ihre nächste Eingabe 
zu warten 

Wenn Sie im Moment noch keinen Printer haben, 
werden Sie dieses Programm trotzdem genießen (zu 
beobachten, wie es den Text justiert, ist sehr interes¬ 
sant) und einige Zeilen können hinzugefügt werden, 
um zu demonstrieren, daß der Dmcker arbeitet (oder 
arbeiten würde, wenn Sie einen hätten). 

1 SLOW 
10 LET L=0 
20 LET 

30 PRINT RT L..0jC:$ 

40 INPUT 

50 IF THEN GOTO 280 

60 IF THEN GOTO 330 

70 IF B$-‘'0" THEN GOTO 360 

75 IF B$="S’' THEN STOP 

80 IF LEN C$+LEN B$+l>32 THEN 
GOTO 91 

85 LET C$=C$+B$+''#'’ 

90 GOTO 30 

91 LET C*=C$a TO LEN C9s-1 > 

95 FOR 1=2+INT «T. RND’^-LEN C$/3) 

TO LEN C$~INT < RND^^.LEN C$/3 > 

97 IF C$U ><>"#" THEN GOTO 150 
100 LET fl$=C$U TO I-l >+‘'#’'+C$< 

I TO > 

110 IF LEN R$=32 THEN GOTO 160 
150 NEXT I 
160 LET C$=R$ 

180 PRINT RT L..0;R$ 

190 IF LEN C$<32 THEN GOTO 93 
275 LET C$=B$+'‘#” 

280 LET L=L+1 

290 IF L=21 THEN GOTO 330 

295 IF B$=".'' THEN GOTO 20 

300 GOTO 30 

330 COPY 
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Wenn Sie noch keinen Drucker haben, löschen Sie 
Zeile 330 und fügen Sie die nächsten beiden Zeilen 
ein. Haben Sie einen Drucker, lassen Sie Zeile 330 wie 
sie war (also COPY) und ignorieren Sie 331. 
Demonstrationszeilen für Gebrauch ohne Drucker: 

330 PRINT RT 0.0j"IC.H KOPIERE" 

331 INPUT IJ$ 


Zurück zum »echten« Programm: 


340 

CLS 


350 

GOTO 10 


360 

LET X==0 


370 

LET Y=0 


380 

GÜSUB 1000 


400 

IF INKEY$="'' THEH 

GOTO 400 

410 

LET fl=CODE INKEY$ 


415 

IF fl=118 THEN LET 

R=0 

420 

IF R<112 OR R>127 

THEN GOTO 

500 



430 

IF R=112 THEN LET 

Y=Y~1 

440 

IF R=113 THEN LET 

Y=Y+1 

450 

IF R=114 THEN LET 

X=X~1 

460 

IF R=115 THEN LET 

X=X+1 

470 

IF R-“121 THEN GOSUB 1000 

480 

IF R=121 THEN GOTO 40 

490 

GOTO 390 


500 

PRINT RT Y..X.:C:HR$ 

R 

510 

LET X=X+1 


520 

IF X<32 THEN GOTO 

550 

530 

LET X=0 


540 

LET Y=Y+1 


550 

GOSUB 1000 


560 

GOTO 390 


1000 

PRINT RT Y..X; 


1010 

LET W=PEEK <PEEK 

16398+256';^: 

PEEK 

16399::'+128 


1030 

IF W>255 THEN LET 

W=W-256 

1040 

PRINT CHR$ W 


1050 

RETURN 



Mit diesem Programm geben Sie Ihren Text ein und 
die Zwischenräume werden automatisch so bemes¬ 
sen, daß jede Zeile 32 Zeichen lang ist. Wenn der Bild¬ 
schirm voll ist, wird er automatisch am Drucker ko¬ 
piert, und der Bildschirm löscht sich, sodaß Sie einen 
neuen Text eingeben können, 

Spezialeingaben sind: 

».« bedeutet Endes des Absatzes 
»/« bedeutet Ende des Textes 
»0« bedeutet Ändern des Textes 
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NEWLINE bedeutet einen Zwischenraum, und nach¬ 
dem der Text geändert wurde, erlaubt Ihnen SHIFT 
NEWLINE weitere Texteingabe. 

Wenn Sie Text ändern müssen, geben Sie zuerst 0 ein 
und werden dann das erste Zeichen Ihres Textes in¬ 
vertiert sehen. Mit den Tasten 5, 6, 7 und 8 (indem Sie 
sie einfach niederhalten) verschieben Sie die inverse 
Blase in der Richtung der Pfeile auf den Tasten. Wenn 
Sie zu dem Buchstaben kommen, den Sie ändern wol¬ 
len, geben Sie einfach den neuen Buchstaben ein. 


-Echo Chamber- 

Dieses Spiel werden Sie nie gewinnen. Der ZX81 gene¬ 
riert eine ständig wachsende Zahl (bis zu 30 Zitfern 
lang), Ziffer für Ziffer, und Sie müssen sie wiederholen, 
nachdem Sie sie nur für eine kurze Zeit gesehen ha¬ 
ben. 

Beachten Sie, daß dieses Programm die Funktion 
STR$ verwendet (in der Subroutine 1000—1020), die 
eine numerische Variable in einen String ändert. Die 
Subroutine zeigt auch, wie die Verknüpfung von 
Strings funktioniert. 

5 FRST 
10 LET R$="" 

20 LET R=0 

30 PRINT RT 10.0;"RLSO.HIER IS 
T TESTZRHL NR.'’;R+l 
40 PRUSE 100 
50 CLS 

60 GÜSUB 1000 

70 PRINT RT 10.0; "DRS MIJESSEN 
SIE SICH MERKEN.*" 

80 PRINT RT 11.31~R;R$ 

90 PRUSE 30+5:+:R 
100 CLS 

110 PRINT RT 10.0;"WIE LRUTETE 
DIE 2RHL?" 

120 INPUT B$ 

130 IF B$=R$ THEN PRINT RT 10.0 
;"SIE HRBEN RECHT.BITTE WRRTEN S 
IE" 

140 IF B$=R$ RND R«31 THEN GOTO 
210 

145 IF B$<>R$ THEN GOTO 180 
150 PRUSE 100 
160 CLS 
170 GOTO 30 
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180 PRINT RT 10.0;"DRS WRR LEID 
ER FRLSCH" 

190 PRINT "MEINE ZRHL WRR#";R$ 

200 PRINT "IHRE ZRHL WRR#".!B$ 

210 PRINT "SIE ERREICHTEN#" ;3';^:R 
I "#PIJNKTE" 

220 PRINT RT 15.0;"WOLLEN SIE N 
OCHEINMRL SPIELEN?" 

230 INPUT 
240 CLS 

250 IF CODE C$=47 THEN RUN 
260 FOR J=0 TO 21 
270 PRINT RT J.4.;"RUF WIEDERSEH 
EN" 

280 PRUSE 7 
290 NEXT J 
300 CLS 
310 STOP 

1000 LET R$=R$+STR$ INT <RND:+:10::' 

1010 LET R=R+1 
1020 RETURN 

Beachten Sie den Gebrauch von CODE in Zeile 250, 
um die Antwort des Spielers zu checken. Dies erlaubt 
dem Spieler »JA«, »JEIN« oder »JUCHU« einzugeben, 
und der ZX81 wird es als »JA« interpretieren. 
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-Spieglein, Spieglein- 

SPIEGLEIN, SPIEGLEIN ist ähnlich wie ECHO CHAMBER 
mit dem Unterschied, daß dieses Programm Ihnen 
statt einer ständig wachsenden Zahl eine Serie von 
tüntziffrigen Zahlen gibt. 

Je länger das Spiel tortschreitet, desto kürzer wird die 
Zeit, während der Sie die Zahl sehen und desto kürzer 
wird die Zeit, die Sie sich zwischen den einzelnen 
Zahlen erholen können. 

Bei derh Programm BACK STABBER gibt es zwei Rou¬ 
tinen (Zeile 20—50 und Zeile 230—260), die zwischen 
den einzelnen Runden des Spiels blinkende Worte 
aut dem Bildschirm schreiben. SPIEGLEIN, SPIEGLEIN 
verwendet eine ähnliche Technik (Zeile 10 0—130) tür 
die Pause zwischen den auteinandertolgenden Ge¬ 
dächtnistests, und es ist diese Routine, die jedes Mal 
etwas kürzer läutt. 

Sie bekommen eine Punktewertung (Zeile 170), die 
siebenmal so groß ist, wie die Anzahl Ihrer richtigen 
Antworten. 

Werten Sie einen Blick aut Zeile 160. Dort wird TAB 
gebraucht, um mit einer Programmzeile zwei Bild¬ 
schirmzeilen mit Text in einer bestimmten Position zu 
tüllen. Ihr ZX81-Handbuch erklärt dies aut Seite 115. 

10 LET fl*0 

20 LET B=IHT < RHD5i:Si0000 H10000 
30 LET R=R-H 

40 PRINT RT 10..6.i "TEST#'bR..B 
50 FOR N=1 TO 40-2*R 
55 HEXT N 
60 CLS 
70 INPUT C 

80 IF BOC THEN GOTO 160 
90 PRINT RT 10..2.iC.i "#IST RICHT 
IG" 

100 FOR D==l TO 25-R 

110 PRINT RT 5.4j" BITTE NRRTEN" 

120 PRINT RT 5;4j"BITTE NRRTEN " 

130 HEXT D 
140 CLS 
150 GOTO 20 

160 PRINT RT 10.. 0.i "FALSCH.. MEINE 
ZRHL NRR# ’b B"IHRE# ’b C 
170 PRINT "IHRE GEDRECHTNISRRTE 
i;7*R 
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Hier ist eine längere Version dieses Spiels. 


10 LET B=40 
20 FÜR n=l TO 10 
40 PRINT RT 5.. 3; "VERSUCH NR-".; 
fl 

50 PRINT RT 8.4.! "DAS IST IHRE 
ZAHL •• " 

60 LET C= 10000+INT < RND:t.90000 > 
70 PRINT RT 10.0J"DIE ZAHL.DIE 
SIE SICH MERKEN" 

80 PRINT RT 12.0J"MUESSEN IST# 
#".!C 

90 PRINT RT 14.. 4.: "KONZENTRIERE 
N SIE SICH " 

100 FÜR E=1 TO B-3-^:R 
110 NEXT E 
115 CLS 

120 PRINT RT 10.4.i "NUN.. WIE LAUT 
ETE DIE ZAHL?" 

130 INPUT D 
140 CLS 

150 IF DOC THEN GOTO 280 
160 PRINT RT 10.4.! "RICHTIG. BRAV 
_ 0 " 

170 FOR E=1 TO B-3*4:R 

180 PRINT RT 15.4;"BITTE WARTEN 

II 

190 PRINT RT 15.4J" BITTE WARTEN 

II 

200 NEXT E 
205 CLS 
210 NEXT R 

220 PRINT RT 8.0.i"SIE HABEN SIC 
H ALLE ZEHN ZAHLEN" 

230 PRINT "GEMERKT UND BEKOMMEN 
EIN" 

240 PRINT "WEITERES SPIEL" 

250 FOR E=1 TO 100 
255 NEXT E 
260 CLS 
270 RUN 

280 PRINT RT 6.4.! "DAS WAR LEIDE 
R FALSCH" 

290 PRINT RT 8.0;"MEINE ZAHL WA 
R#";C.! ". " 

300 PRINT RT 10.0;"IHRE ZAHL WA 
R#";D 

310 PRINT RT 12.0; "SIE HREiEN SI 
CH#";fl-1;"#ZAHLEN"."GEMERKT" 
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-Nicomachus- 

NICOMACHUS war, wie uns erzählt wurde, ein Mathe¬ 
matiker und Autor, der um das Jahr 100 ein faszi¬ 
nierendes arithmetisches Buch schrieb. In diesem be¬ 
findet sich das mathematische Puzzle, das im folgen¬ 
den Programm verwendet wurde. Sie denken an eine 
Zahl zwischen 1 und 10 0, teilen sie nacheinander 
durch 3, 5 und 7 und geben jeweils den Rest jeder 
Division ein. Zeile 80 rekonstmiert dann Ihre ursprüng¬ 
liche Zahl aus diesen Informationen. 

10 PRINT "DENKEN SIE SICH EINE 
"^RHL " 

"l5 PRINT “ZNISCHEN 1 UND 100“ 

20 PRINT “/3“ 

30 INPUT fl 
40 PRINT “/5“ 

50 INPUT B 
60 PRINT 'V7“ 

70 INPUT C 

30 LET Z=70:*:fl+21:=^:B+15:+:C 
90 FÜR 1=1 TO 6 
100 IF Z>105 THEN LET Z=Z“105 
110 NEXT I 
120 PRINT Z 
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%x^ %^ %X^ %T^ 

^JS #J% ^y% 

Zufallszahlen 

* %^ %x^ %x^ %x^ %x^ ^x^ %x^ 


D ie Zufallszahlen, die mit der RND-Funktion Ihres 
ZX81 generiert werden, sind nicht wirklich zutällig, 
obwohl sie für die meisten Zwecke ausreichen. Der 
Computer verwendet in Wirklichkeit eine lange Liste 
von Zahlen, so lang, daß es scheint, als wären sie zu¬ 
fällig. Die RAND-Funktion bestimmt, bei welcher Zahl 
der Liste der ZX81 beginnt. Diese Zahl steht in Bezie¬ 
hung zu der Anzahl der Einzelbilder, die Ihr Fernseh¬ 
gerät seit dem Einschalten abgetastet hat. RAND n 
(wobei n eine Zahl ist) läßt den ZX81 bei einer Position 
beginnen, die in Beziehung zu n steht. Haben Sie bei¬ 
spielsweise RAND 7 am Beginn eines Programmes, 
das Zufallszahlen verwendet, eingegeben, so gibt der 
ZX81 jedes Mal die gleiche Zahlenfolge aus, wenn 
Sie das Programm ablaufen lassen. Es gibt einige 
Algorithmen, die Zufallszahlen generieren, und viel¬ 
leicht wollen Sie die eine oder andere in einem Ihrer 
Programme verwenden. Diese Zufallszahlen müssen 
gesät werden (und das ist der Grund, warum beide 
Programme »Minuten nach der Stunde?« fragen, um 
eine Ausgangszahl zu bekommen). Es gibt keinen 
Gmnd, wamm Sie nicht den Zufallszahlengenerator 
des ZX81 verwenden sollten, um Ausgangszahlen für 
diese Algorithmen zu bekommen. Zu diesem Zweck 
löschen Sie die Frage und ändern die INPUT-Zeile auf 
LET A=RND im ersten und LET X=RND im zweiten Pro¬ 
gramm. 

10 SLOW 

20 PRINT "MINUTEN NRCH DER STU 
NDE?" 

30 INFUT R 

40 LET E=R/2 

50 FOR .J=l TO 13 

60 LET B=RBS < 439147-t-R-t-B ) 

70 LET C=EXP e-t-1 
80 LET D=23*B 

90 LET B=INT tD-INT ^D.'-O^C) 

100 HEXT J 
110 PRINT B 
120 GOTO 50 
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Dieses Programm generiert Zahlen mittels der Kon- 
gmenzmethode und verwendet die Gleichung.- 

xn+l=23xn- int (—— ) X (108+1) 

108 + 1 


Das zweite Programm ist flexibler. Es kann leicht so 
eingestellt werden, daß es Zahlen in einem gewünsch¬ 
ten Bereich generiert (auch das erste Programm kann 
so geändert werden, aber die Ändemngen sind kom¬ 
plexer). Hier wurde das zweite Programm geschrieben, 
um einen einzelnen Würfel zu simulieren, d.h., es gene¬ 
riert Zahlen zwischen 1 und 6. Ändern Sie die einge¬ 
klammerte Ziffer in Zeile 70, um die höchstmögliche 
Zahl zu ändern. 

10 PRINT "MINUTEN NRCH DER STU 
NDE?" 

20 INPUT X 
30 LET D=6 
40 FÜR J=1 TO D 
50 LET X=(X+PI Xm- 
60 LET X=X~INT X 
70 LET D=INT 
80 NEXT J 
90 PRINT D 
100 GOTO 40 


Das nächste Programm zeichnet eine graphische Dar¬ 
stellung der von der RND-Funktion generierten Zahl. 
Lassen Sie es einige Male wie aufgelistet laufen und 
fügen Sie dann 10 RAND 6 hinzu, um zu sehen, wel¬ 
chen Effekt das hat. 


20 FÜR fl=l TO 20 
30 LET B=INT < RND*;)=:20 >+l 
40 IF B<10 THEN PRINT 
50 PRINT B.i"#"; 

60 FOR C«1 TO B 
70 PRINT 
80 NEXT C 
90 PRINT 
100 NEXT fl 


Wenn Sie den Ausdruck etwas verlangsamen wollen, 
' fügen Sie hinzu: 

75 LET K=RND?|CRND 
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Sie sollten sich an diese nützliche Technik erinnern, 
wenn Sie ein Programm etwas verlangsamen wol¬ 
len. Eine zweite Möglichkeit, die allerdings zwei Zeilen 
braucht, ist eine Schleife hinzuzufügen, wie z.B. die 
folgende: 

75 FOR N=1 TO 200 
77 HEXT N 


Die RND-Funktion wird in vielen Spielen verwendet, 
um den Wurf eines Würfels zu simulieren. Wenn sie 
richtig arbeitet, sollte sie (wie ein richtiger Würfel) 
jede Zahl zwischen 1 und 6 gleich oft produzieren. 
Realistischer gesagt, je öfter Sie den Würfel werfen, 
desto gleichmäßiger sollte die Verteilung der Zahlen 
zwischen 1 und 6 sein. 

Das nächste Programm wirft einen Würfel so oft Sie 
wünschen und führt Buch über die gefallenen Zahlen. 
Wenn Sie das Programm laufen lassen, werden Sie 
um die Eingabe einer Zahl gebeten — die Anzahl der 
Würfe. 

Wenn das Programm läuft, zeigt es Ihnen däs Ergebnis 
des gegenwärtigen Wurfes (unter dem blinkenden 
schwarzen Quadrat) und um den wievielten Wurf es 
sich handelt. Damnter sehen Sie eine Tabelle, aus 
der Sie entnehmen können, wie oft jede Zahl gefallen 
ist. 

Wenn Sie dies für eine größere Wurfanzahl auspro¬ 
bieren wollen, lassen Sie das Programm in FAST laufen. 
ZX80-Besitzer mit neuem ROM und ZX81-Besitzer brau¬ 
chen die Zeile 105 PAUSE 50. Ebenfalls sollte die Zeile 
50 gelöscht werden. Das Programm ist ziemlich lang¬ 
sam durch die große Menge an Text, die bei jedem 
Durchlauf ausgedruckt werden muß. Wenn Sie eine 
sehr große Anzahl an Würfen austesten wollen, wie 
Z.B. 50 0 0, entfernen Sie die Zeile 30 und geben Sie 
sie als Zeile 120 neu ein. Löschen Sie die Zeilen 80 
bis 10 0 und ändern Sie sie in Zeilen 130 bis 150. Lö¬ 
schen Sie die Zeilen 50 und 70 komplett und lassen 
Sie das Programm in FAST laufen. 
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Würfel-Würfe 


10 INPUT D 
20 DIM fl<6> 

30 PRINT RT 10,4;"1###2###3### 

40 FOR C=1 TO D 
50 PRINT RT 3,10;"*." 

60 LET R*INT i;RND*6)+1 
70 PRINT RT 3,10;R,C 
75 LET R<R)=R<R)+1 
80 FOR B=1 TO 6 
90 PRINT RT 12,4*B;R':B> 

100 NEXT B 
110 NEXT C 

Das nächste Programm, das auf dem eben aufge¬ 
listeten basiert, ist etwas interessanter. Wenn die Wahr¬ 
scheinlichkeit, daß ein einzelner Würfel auf eine Zahl 
zwischen 1 und 6 fällt, in der Theorie 1.6 ist, ist die Wahr¬ 
scheinlichkeit von bestimmten Gesamtsummen, die 
durch Zusammenzählen der Würfelaugen von zwei 
Würfeln entstehen, von der angenommenen Gesamt¬ 
summe abhängig. Das bedeutet, daß es z.B. nur eine 
Möglichkeit gibt, um die Zahl 2 zu erreichen (1+1), sie 
aber die Gesamtsumme 4 durch 2+2, 1+3 oder 3 + 1 
erreichen können. Es gibt sechs Möglichkeiten, um 
eine Gesamtsumme von 7 zu erreichen. 

Dieses Programm simuliert also den Wurf zweier Wür¬ 
fel. Nachdem Sie es einmal in Aktion gesehen haben 
und verstehen, was geschieht, fügen Sie eine ROUTI¬ 
NE hinzu, die für jede Möglichkeit den Prozentanteil 
an den Gesamtwürfen angibt. Wenn alles in Ordnung 
ist, sollten Ihre Prozentsätze an die theoretische Ver¬ 
teilung herankommen: 
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Gesamt¬ 

summe 

der 

Würtel- 

augen 

Anzahl der 
Möglichkeiten, 
wie diese 
erreicht werden 
kann 

Wahr¬ 

schein¬ 

lichkeit 

Prozent¬ 

satz 

2 

1 

1/36 

2,77% 

3 

2 

2/36,1/18 

5,55% 

4 

3 

3/36,1/12 

8,33% 

5 

4 

4/36,1/9 

11,11% 

6 

5 

5/36 

13,88% 

7 

6 

6/36,1/6 

i6,66% 

8 

5 

5/36 

13,88% 

9 

4 

4/36,1/9 

11,11% 

10 

3 

3/36,1/12 

8,33% 

11 

2 

2/36,1/18 

5,55% 

12 

1 

1/36 

2,77% 


Im folgenden Programm sorgt Zeile 10 0 dafür, daß 
ein an sich schon sehr langsames Programm nicht 
noch langsamer dadurch wird, daß es immer wieder 
Zahlen ausdrucken muß, die sich nicht ändern. 

10 INPUT D 
20 DIM RU2> 

30 FÜR C=1 TO D 
40 LET R 1 = 1 NT <RND:*:6>+1 
50 LET R2=INT C RND:+:6 >+1 
60 PRINT RT 3.2.5 ”######•■; RI.. R2 
70 PRINT RT 3.2.5C 
80 LET R3=R1+R2 
90 LET R<R3>«R<R3>+1 
100 FÜR B=2 TO R3 
110 PRINT RT B+3..0.. 

120 PRINT RT B+3..5;B.R':B> 

130 NEXT B 
140 NEXT C 

Nun haben wir ein ordentliches Stück Zeit verwendet, 
um Würfel mit dem Zufallszahlen-Generator nachzu¬ 
ahmen. Ich glaube, daß wir das jetzt in einigen Pro¬ 
grammen verwenden sollten. 
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-Chuck-a-luck- 

Das erste Programm, auf das wir einen Blick werfen 
werden, heißf CHUCK-A-LUCK. In seiner ersten Inkar¬ 
nation in England hatte es den sehr unwahrschein¬ 
lichen Namen Sweath-Cloth und als es in den frühen 
Jahren des 19. Jahrhunderfs nach Amerika exportiert 
wurde, war es zuerst als Sweat bekannt. Durch die 
Jahre hindurch änderte es seinen Namen von Chu- 
cker-Luck, Chuck-Luck auf Chuck-A-Luck oder nur 
Chuck. Heutzutage wird es wegen der Ausrüstung, 
die man in der Nicht-ZX81-Version verwendet, meist 
The Bird Cage genannt. 

Der Vogelkäfig isi ein geschlossener Drahtkäfig mit 
drei Würfeln. Die Spieler wellen auf die Wahrschein¬ 
lichkeit, daß eine bestimmte Zahl kommt. Wenn sie 
beispielsweise Ihr Geld auf 6 setzen und einer der 
drei Würfel fällt auf 6, bekommen Sie Ihr Geld zurück. 
Wenn alle drei Würfel 6 zeigen, bekommen Sie den 
dreifachen Einsatz. Ein wirklich einfaches Spiel, das 
aber bei Fans Leidenschaft erregt. 

Das Programm tut die meiste Arbeit für Sie. Wenn es 
fragt »Höhe Ihres Einsatzes«, dann geben Sie den Be¬ 
trag, den Sie verwetten wollen, ein. Sie wissen jeder¬ 
zeit, wieviel Geld Sie übrig haben (Sie starten mit 
30) und können Ihr gesamtes Geld verwetten. Sie 
verlieren automatisch diese Menge, wenn das Spiel 
beginnt (fällt ein Würfel auf Ihre Zahl, bekommen Sie 
Ihr Geld wieder zurück, ein Gewinn wird es erst bei 
zwei oder drei). Die nächste Frage des Computers ist 
»Zahl« und er erwartet die Eingabe einer Zahl zwischen 
1 und 6. Das Spiel erklärt sich selbst, während es läuft. 

10 LET ri=30 

M ist der Geldbetrag, mit dem Sie starten und später 
Ihr Restguthaben. 

20 GOSUB 2S0 


Die Subroutine 280 druckt Ihr Vermögen auf dem 
Bildschirm aus und beinhaltel eine Warteschleife 
(290 und 300), auf die in Zeile 220 separaf zuge¬ 
griffen wird. 


30 PRINT RT 6.4i"IHR EIHSRTZ?# 
40 INPUT R 
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50 IF R>n THEN GOTO 40 
60 PRINT "$";R 
70 LET M=ri-R 

80 PRINT RT 10.4;"ZRHL?#"J 
90 INPUT B 

100 IF BO INT B GR B< 1 ÜR B>6 T 
HEN GOTO 80 
110 PRINT B 

Der nächste Teil rollt die Würfel und ändert Ihr Gut¬ 
haben 

120 FÜR C=1 TG 3 
130 LET 

W gibt an, ob Sie verloren oder gewonnen haben 
und ist der Zahlmeister. 

140 GÜSUB 290 

150 LET D=INT 0!ND:+:6+l > 

160 PRINT RT ll4-2:i^.C..0; " NUERFEL# 

"jCHR$ 'sC 4-156>; " #FIEL RIJF# ".iCHR$ 

<D+156::« 

170 IF D=B THEN LET W=R 
180 IF D==B THEN PRINT ..“GEWINN 
$ “; W 

190 LET n-n+w 

Die Subroutine ändert die Gesamtsumme, wenn Sie 
gewonnen haben. 

200 GÜSUB 280 
210 NEXT C 


Es gibt eine kurze Pause, bevor das Spiel weitergeht. 

220 GÜSUB 290 
230 CLS 


Wenn Sie noch Geld haben, geht der Computer zu 
Zeile 20 zurück. 

240 IF M>0 THEN GÜTÜ 20 


Wehe, wenn Sie bankrott sind... 


250 PR I NT RT 10.. 3 .i “ SP I ELENDE. SI 
E SIND PLEITE“ 

260 PRINT RT 10.3.i “SPIELENDE.. SI 
E SIND PLEITE“ 

2?0 GüTÜ 250 
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Die Subroutine ändert Ihr Konto und verursacht eine 
kleine Pause. 

2S0 PRINT RT 2.6j"GUTHRBEN 

i "##" 

’ £90 FÜR N==l TO 50 
300 HEXT H 
310 RETURN 


-Siebenter Himmel- 

In seiner Jugend war dieses Würfelspiel als »Unter 
oder über Sieben« bekannt. Es schien Spielern sehr 
attraktiv zu sein, denn es sah so aus, als wäre der Vor¬ 
teil auf Seiten des Spielers. Wie Sie entdecken werden, 
wenn Sie mit Geld, das nur im ZX81 Variablen-Speicher 
existiert, spielen, zieht der Spieler den kürzeren. Wenn 
der Zufalls-Generator perfekt arbeitet und Sie dieses 
Spiel lange Zeit hindurch spielen, sollten Ihre Verluste 
die Gewinne mit 16,2% überwiegen. Nachdem Sie nun 
gewarnt worden sind, gehen Sie in den Siebenten Him¬ 
mel. 

Wieder einmal haben wir M verwendet, um Ihr Geld 
zu speichern. 

£0 LET M*30 

Und wieder einmal haben wir eine Subroutine, um Ihr 
wachsendes (?) Guthaben anzuzeigen. 

30 GOSUB 320 

Der nächste Teil ersucht Sie, Ihre Wette auf eine der 
drei Möglichkeiten zu plazieren Der Würfel landet 
mit einer Gesamtsumme unter 7 (A),- gleich 7(B); oder 
über 7 (C). Sie treffen Ihre Wahl, indem Sie entweder A, 
B oder C eingeben. 

40 PRINT RT 4.3j"GEBEN SIE IHR 
E WETTE RB" 

50 PRINT RT 10.0;"CR> UNTER 7# 

#<B> LIEBER 7" 


Die nächste Zeile erklärt die möglichen Gewinne — 
Geld zurück (A oder C) oder 4.1 (B), ausgedmckt als 
fünffacher Einsatz, sodaß es aussieht, als ob Sie mehr 
bekämen... heimtückisch! 
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60 PRINT flT 11.3;"GLEICH###### 

5 ZU 1#####GLEICH" 

70 IHPUT R$ 

Wenn Sie das Spiel stoppen wollen, geben Sie S ein. 

80 IF R$="S'' THEN STOP 


Nun geben Sie die Höhe Ihrer Wette ein. 

90 PRINT RT 16..5; "BETRRG?" 

100 INPUT R 

110 IF R<1 QR fl>6 THEN GOTO 100 
120 PRINT RT 16..5.i "GIJT.$";R;'•## 

II 

130 LET B==INT < RND5r.6 >+l 
140 PRINT RT 10..3;B;RT 10.10; 

130 LET C==INT •::RND';t:6>+l 
160 PRINT C;TflB 6; 

170 LET D«=C+B 
180 PRINT D 

Diese Sektion des Programmes arbeitet aus, wie gut 
oder schlecht Sie gewettet haben. 

190 IF D=7 AND R$=="B" THEN LET 
W=45fcR 

200 IF D<7 AND R$="R" THEN LET 

210 IF D>7 RND R$="C" THEN LET 
W=R 

220 IF -:<R$-"fl" OR R$*"C"> RND 
C.=7> OR <R$=="B‘' RND D07 > THEN L 
ET W=~R 
230 LET M=M+W 

240 IF W>0 THEN PRINT RT 16.4;" 

SIE GENINNEN $";N 
250 IF N<0 THEN PRINT RT 16.4;" 

SIE VERLIEREN $";-N 
260 GOTO 320 
270 FOR N=1 TO 60 
280 NEXT N 
290 IF ri<l THEN STOP 
300 CLS 
310 GOTO 30 

320 PRINT RT 2.4;"GUTHABEN »";M 
; "##" 

330 RETURN 
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-Dice-Jack- 

DICE-JACK ist die 1 K-Würfelversion von Black Jack. 
Sie werfen abwechselnd einen Würfel, addieren die 
Augenzahlen und versuchen, so nah wie möglich an 
(oder gleich auf) 21 zu kommen, aber auf keinen Fall 
darüberhinaus. Wenn weder Sie noch der Computer 
gewinnen, beginnt ein neues Spiel. Wenn Sie beide 
»sprengen« (d.h.. Sie überschreiten 21) oder unentschie¬ 
den spielen, dann stoppt das Programm. 

Die PRINT-Anweisungen sind sehr kurz, um das Pro¬ 
gramm in 1 K zu bekommen, also werde ich Ihnen 
erklären, was auf der Mattscheibe geschieht. 

Wenn Sie das Programm laufen lassen, sehen Sie in 
der unteren linken Ecke die Auffordemng, eine Zahl 
einzugeben. Wenn Sie 1 eingeben, wird der Würfel ge¬ 
worfen und die Aügenzahl zu Ihrem Stand addiert. 
Wenn Sie mit Ihrem Stand schon glücklich sind und 
Sie keinen neuen Wurf mehr machen wollen, geben 
Sie 2 ein und der Computer würfelt. Ihr Gesamtergeb¬ 
nis ist die oberste Zeile, das des Computers die damn- 
terstehende. 

Die Zeilen 260 bis 280 sollen das ganze Spiel nur 
etwas verlangsamen, H ist die Gesamtsumme des 
Menschen und C (klarerweise) ist die des Computers. 
Zeile 90 ist die wichtigste des Spieles. Diese Zeile be¬ 
stimmt die gesamte Strategie des Computers und ist 
deshalb die Zeile, die dem ZX81 die Entscheidung er¬ 
möglicht, einen neuen Wurf zu machen oder nicht. 
Die Zeilen 170 bis 190 arbeiten aus, wer das Spiel 
gewonnen hat. 

Wenn Sie mehr als 1 K haben, könnten Sie das Spiel 
etwas aufmötzen, indem Sie eine Spielanleitung und 
passende Auffordemngen an die Spieler einbauen. 

10 LET H=0 
20 LET C=H 
30 IHPUT B 

40 IF R=2 THEH GOTO 90 
50 LET H=H-t’INT 
60 GOSUB 260 
70 PRINT BT 4.0;H 
80 GOTO 30 

90 IF OH BND C<22 OP. 021 OP. 

H>21 OR H=21 BND C=21 THEN GOTO 
140 

100 LET C=C+INT (;RND*6H1 
110 GOSUB 260 
120 PRINT BT 8.0;C 
130 GOTO 90 
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140 PRINT RT 11.0J 
150 GOSUB 260 
160 GOSUB 260 

170 IF H=C OR H>21 RND 021 THE 
N GOTO 240 

180 IF COH OR H>21':> RND C<22 T 
HEN PRINT “11^ HRBE”J 
190 IF ‘::H>C OR 020 RND H<22 T 
HEN PRINT “ SIE HRBEN"j 
200 PRINT "#GEWONNEN“ 

210 PRUSE 200 
220 CLS 
230 RUN 

240 PRINT “UNENTSCHIEDEN“ 

250 STOP 

260 FOR E=1 TO 40 
270 NEXT E 
280 RETURN 

Beachten Sie, daß die PAUSE zweimal hintereinander 
autgeruten wird (Zeile 150 und 160). Dies soll den Ein- 
dmck erwecken, daß der ZX81 ausarbeitet, wer ge¬ 
wonnen hat. Beachtenswert ist auch Zeile 140, die Platz 
spart, indem sie das gleiche PRINT AT zweimal ver¬ 
wendet. Das wird in den Zeilen 180 und 190 offen¬ 
sichtlich. 

Wenn Sie mehr als 1 K haben, könnten Sie überlegen, 
außer der Spielanleitung und der Auffordemng an die 
Spieler auch das Ergebnis jedes Wurfes und die wach¬ 
sende Gesamtsumme auszudrucken. 


-Barbudi- 

Das ist ein einiaches Kartenspiel, das auf dem Würfel¬ 
spiel BARBUDI basiert. Der Spieler zieht zwei Karten 
aus einem Stoß, der nur aus Neunem, Zehnern, Buben, 
Damen, Königen oder Assen besteht. Bestimmte Kom¬ 
binationen (die Sie kennenlernen werden, während 
Sie sich mit dem Programm beschäftigen) sind Gewin¬ 
ner und andere Kombinationen sind Verlierer. 

Der Geldbetrag, den Sie pro Runde gewinnen oder 
verlieren können, steigert sich laufend während des 
Spiels. Das Geld, das Sie gewinnen, kommt aus dem 
Speicher des ZX81 (Variable C, bestimmt in Zeile 30) 
und das Geld, das Sie verlieren (Ihre Geldvariable 
ist H, Zeile 40), geht in den Speicher des ZX81. Das Spiel 
läuft, bis einer der beiden Beträge kleiner ist als 1. 
Beachten Sie, daß der String A$ (aufgestellt in Zeile 
20) nicht dimensioniert ist, aber daß einzelne Elemen- 
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te aus dem STRING herausgenommen und verwendet 
werden können. 


10 RRND 

20 LET n$=" 9ZBDKR " 

30 LET C«30 
40 LET H=30 
50 LET R«=0 
60 LET R*R4-1 
70 PRINT 

00 PRINT "DRUECKEN SIE N/L FUE 
R ßLRTT#"jR 
90-LET G=0 


Wie Sie aus der Subroutine, die in Zeile 250 beginnt 
ersehen können, zeigt G Gewinn oder Verlust an. 

100 INPUT B* 

110 IF B«>"" THEN STOP 

Zeile 110 erlaubt es Ihnen, das Programm jederzeit 
anzuhalten, indem Sie vor NEWLINE ein Zeichen ein¬ 
geben. 

120 CLS 
130 GOSUB 250 

150 IF G=1 THEN PRINT "SIE HRBE 
N GENONNEN " 

160 IF G«2 THEN PRINT "ICH HRBE 
GENONNEN" 


Der nächste Teil händigt Ihnen das Geld aus (oder 
nimmt es Ihnen weg). 

170 IF G=»l THEN LET H=H+R/2 
180 IF G=1 THEN LET C«C-R/2 
190 IF G=2 THEN LET H=H-R/2 
200 IF G«2 THEN LET C«C+R/2 
210 IF C<1 OR H<1 THEN STOP 
220 PRINT 

230 PRINT "SIE .«";H."ICH «".jC 
240 GOTO 60 

Diese Subroutine verteilt die Karten mittels Zufallszah¬ 
len und zieht dann das der jeweiligen Nummer ent¬ 
sprechende Element aus dem String in Zeile 2 0 heraus. 

250 LET D«=INT <RNDJr.6>+l 
260 LET E=»INT •:P.ND:t;6Hl 

270 PRINT RT 3.. 10J ... 

280 PRINT RT 4.10J ; R«C D ); "#" 

.5R*<E>; "■" 


104 







290 PRINT RT 5.10;"I"jRSCD)J 
;R*<E); " 1 " 

300 PRINT RT 6.10; 

310 PRINT RT 6.14; 

320 LET F=D+E 

330 IF F=5 OR F>8 THEN LET G=1 
340 IF F<4 OR F=7 THEN LET G=2 
350 RETURN 

Die Zeilen 330 und 340 bestimmen, welche Kombi¬ 
nationen gewinnen und welche verlieren. Das Spiel 
ist leicht zugunsten des Spielers geschrieben. Nach¬ 
dem Sie einmal die gewinnenden und verlierenden 
Kartenpaare kennen, könnten Sie diese beiden Zeilen 
etwas ändern, sodoß der Vorteil auf Seiten des armen 
kleinen ZX81 ist, oder um das Spiel 10 0%-ig fair zu 
machen. 


-Blackjack- 

Dieses BLACKJACK-Programm verwendet die gleiche 
Idee, Strings zu verwenden wie BARBUDI. Verwendet 
wird ein Undefinierter String (A$, Zeile 60), der die Kar¬ 
ten hält, und ein definierter String (C$, in den Zeilen 10 
bis 50), der die passenden Karten bestimmt. C$ muß 
definiert werden, weil seine Elemente mehr als ein Zei¬ 
chen lang sind. 

Wie das Programm hier aufgelistet ist, agiert es als 
Dealer. Es gibt sich zuerst selbst eine Karte und gibt 
dann Ihnen Ihre erste Karte. Von da an können Sie 
entscheiden, weitere Karten zu nehmen oder nicht, 
also Ihren Gesamtwert beizubehalten. Ziel des Spieles 
ist es, eine Gesamtsumme von 21 (die BLACKJACK ge¬ 
nannt wird) zu bekommen, oder so nah wie möglich 
an 21 heranzukommen, 21 aber nicht zu überschreiten. 
Sollte Ihre Gesamtsumme höher als 21 sein, sind Sie 
»gesprengt«. Die Zahlenkarten zählen entsprechend 
ihrer Zahlen (z.B. zählt der Herzzweier 2), Bilderkarten 
(Bube, Dame, König) zählen als Zehn und das As zählt 
als Elf, außer es würde Sie sprengen, wenn es zu Ihrer 
Gesamfsumme hinzugezählt würde. In diesem Fall 
zählt es als Eins. 

Das Programm arbeitet automatisch die Gesamtsum¬ 
me für beide Spieler aus, und änderf ein As von 11 auf 
1, wenn es notwendig ist. 

Wenn Sie mit dem Programm vertraut sind, werden 
Sie es wahrscheinlich so umschreiben wollen, daß der 
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ZX81 sowohl Ihr als auch sein eigenes Geld verwaltet 
und Wetten annimmt. 


10 DIM c$<4..5> 

£0 LET C$a)="HERZ" 

30 LET C$(£>=" KRRÜ " 

40 LET C$<3>=="PIK" 

50 LET C$C4::'=”IREFF“ 

60 LET R$^" £34567e9ZBDKR " 

70 GOTO £20 

00 LET R=INT <:RND?I^13H1 
90 LET E==R 
100 FOR N=1 TO 35 
110 HEXT N 

120 LET Y=INT <RHD5r.4Hl 
130 LET R=Y 

140 PRINT “MEINE KRRTE IST#'';R$ 
•r.R); Y> 

150 LET R=R+1 

160 IF R>9 RND R<14 THEN LET R=: 
10 

170 IF R=14 THEN LET R=ll 

180 IF R=ll RND 2+R>21 THEN LET 

R=1 

190 LET 2=Z+R 

£00 PRINT “MEIN GESRMTSTRND IST 
#“.5Z 

£10 RETURN 
£20 LET H=0 
230 LET Z=0 
£40 GOSUB 80 
250 PRINT 

260 PRINT “DRUECKEN SIE N/L FUE 
R KRRTE 1“ 

270 INPUT Z$ 

£80 LET B=INT < RND'^f.lS )+l 

290 LET Y=INT 'r.RND'^:4Hl 

300 PRINT RT 4..6;R$CB:u “#“ Y 

;;i 

'310 LET B=B+1 

320 IF B>9 RND B<14 THEN LET B- 
10 

330 IF B=14 THEN LET B=ll 

340 IF B=ll RND H+B.>21 THEN LET 

B=1 

350 LET H=H+B 

360 PRINT RT 5.0;“IHR GESRMTSTR 
HD IST#“;H 

370 PRINT RT 6.. 1; “ GEBEN SIE ““R 
““ FUER NOCH EINE “ 

380 PRINT “ KRRTE EIN ODER U 
M ZU STEHEN “ 

390 INPUT B$ 

400 IF B$=“R“ THEN GOTO 280 
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410 CLS 

420 IF H=21 THEN PRINT ." BLRCKJ 
flr.K" 

~430 PRINT 

440 PRINT ••GUT,. SIE STEHEN RUF#" 
.jH 

450 IF H>21 THEN PRINT .. "GESPRE 
NGT" 

460 IF H>21 THEN GOTO 660 
470 PRINT 

480 PRINT "MEINE ERSTE KRRTE WR 
R#".-R$<E)J "#";C$<R> 

480 PRINT "UND MEIN GESRMTSTRND 

WRR#".iZ 

500 PRINT 

510 PRINT RT 6..0;"ICH GEBE JET2 
T" 

520 GÜSUB 80 

530 IF Z>21 THEN PRINT ."GESPRE 
NGT " 

540 IF Z=21 THEN PRINT ." BLRCKJ 
RCK" 

550 IF Z<18 RND H<22 THEN GOTO 
520 

560 FÜR N=1 TO 35 
570 NEXT N 
580 CLS 

590 PRINT "SIE STRNDEN RUF#".;H 
600 PRINT 

610 IF Z<22 THEN PRINT "ICH STE 
HE RUF#";2 
620 PRINT 

630 IF H=21 THEN PRINT " SIE HRB 
EN EINEN BLRCKJRCK " 

640 IF H«21 RND Z«21 THEN PRINT 
" UND ICH RUCH " 

650 IF 2=21 RND H021 THEN PR IN 
T " ICH HRBE EINE BLRCKJRCK " 

660 IF -'Z^-H OR RND Z<22 T 

HEN PRINT " ICH GENINNE " 

670 IF CH>2 ÜR Z>2r;' RND H<22 T 
HEN PRINT " SIE GENINNEN " 

680 IF H<22 RND H=Z THEN PRINT 
"UNENTSCHIEDEN" 

690 IF H>21 RND 2>21 THEN PRINT 
" UIR SIND SEIDE GESPRENGT " 

700 FÜR N=1 TÜ 50 
710 NEXT N 
720 CLS 
730 RUN 
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%l0 %t# ^1# 

^% 

Informationen 
in Strings speichern 

^X^ sX^ ^x^ 


Blastermind 


I n den Programmen BARBUDI und BLACKJACK ha¬ 
ben wir bestimmte Informationen in Form von Zei¬ 
chen mittels Strings gespeichert. 

Viele BASICs haben eine READ/DATA-Möglichkeit, 
aber beim ZX81 wurde darauf zugunsten der Dmcker- 
steuerungsbetehle verzichtet. Also müssen wir einen 
Ersatz finden. REMbefehle sind für diesen Zweck nütz¬ 
lich, aber Strings können genauso gut benutzt wer¬ 
den und stellen sich als flexibler heraus. 

In der nächsten kleinen Routine beinhalten die Ele¬ 
mente der Strinp M$ und N$ Informationen in Zusam¬ 
menhang mit ihrer Position. Ich erkläre Ihnen nicht, 
was diese Routine auf dem Bildschirm ousdmckt, und 
ich fordere Sie heraus, es zu erraten. Geben Sie das Pro¬ 
gramm jetzt ein und lassen Sie es laufen. 

10 LET n$=''*****®***“^^ 
ll + "£:$:" 

20 LET N$="‘ "^IW" "Vlirt."*" 

30 FÜR R=1 TO 16 

40 PRINT FIT CODE tW Fl ). CODE N* 

50 NEXT fl 

Beachten Sie, daß in keinem der beiden Strings 
Zwischenräume verkommen. Nachdem Sie das Pro¬ 
gramm laufen gelassen haben, ändern Sie Zeile 40 
auf; 


40 PLOT CODE t1«Fl).CODE N*<fl) 


Jetzt bekommen Sie etwas anderes, oder? Dieses Pro¬ 
gramm arbeitet so, weil die Schleife von Zeile 30 
jeden String Element für Element durchkämmt und 
es in eine Zahl ändert (den CODE des Zeichens),- diese 


108 





Information wird dann für PRINT AT oder PLOT ge¬ 
braucht. 

Das eigenartige Ding in N$ (-)-CHR$ II-i-) steht des¬ 
wegen, weil Zeichen 11 — das Anführungszeichen — 
nicht direkt in den String eingegeben werden kann. 
In unserem nächsten Programm — Mühle — werden 
Strings verwendet, um die Beziehung zwischen den 
einzelnen Positionen zu speichern, sodaß der ZX81 
entscheiden kann, wohin er ziehen soll (AS),- ebenfalls 
in dem STRING gespeichert ist die Information, um das 
Spielfeld auszudmcken (B$ und C$). 


-Mühle- 

Der ZX81 spielt bei Mühle ein starkes Angriffsspiel und 
wird Sie wahrscheinlich bei zwei bis drei von fünf 
Spielen schlagen, bis Sie seine Strategie kennen (das 
Spiel unterscheidet sich etwas von dem Mühlespiel, 
das wir gewohnt sind). Sie haben zwölf Steine, die Sie 
abwechselnd mit dem ZX81 auf dem Spielbrett plazie¬ 
ren, Das Ziel ist es, drei Steine in eine Reihe zu bekom¬ 
men, horizontal, vertikal oder diagonal. Beachten Sie, 
daß Sie bei diesem Programm wählen können, ob Sie 
oder der ZX81 beginnen sollen. 

Wenn Sie das Programm kürzen wollen, können Sie 
diese Möglichkeit leicht löschen. In den Strings gibt es 
keine Zwischenräume. 

10 LET fl*="" -I-CHR 

* 11-^CHR$ 1 ?? t«»;) ><< =-*•*•-»♦ 

£=V: -ü(/" 

20 LET *♦*> > > £iMnwn 

£- 7 '>- 7 £.- 

30 LET £ = = =£..re) ) )£lT“£; 

40 DIM L$a6..3) 

50 FÜR Z=1 TG 16 

60 LET Z >=R!fiC 3:+:Z-2 TO 3:*:Z 

70 HEXT Z 

80 PRINT '•WOLLEN SIE BEGINNEN? 

II 

90 INPUT R$ 

100 CLS 

110 FÜR Z=1 TÜ 24 

115 PRINT RT CODE B$c:Z>.CÜDE C$ 

<Z>;2 
120 NEXT Z 
130 Din 

140 IF CODE R$~47 THEN GOTO 190 
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150 

PRINT 

TRB 20.! 

160 

LET 

n 

*INT 'r.RND:-t:24+l ) 

170 

LET 


180 

LET 

K 

= 189 

185 

GOSI, 

JB 

1000 

190 

INPUT 

M 

200 

LET 


210 

LET 

K 

= 180 

215 

GOSI 

JB 

1000 

220 

DIM 

c 

16) 

230 

FOR 

z 

=1 TO 16 

240 

LET 

9 > 

$<Z>=CHR$ •r.CODE M^CCOD 

E 

Z.. 1 

Xi'+CÜDE ri*<CÜDE L$'r.Z..2y;' 


+CODE ns!3<CCiDE Z.. 3 ) ) ) 

250 IF S$'r.ZK>"*" THEH GOTO 310 
280 PRINT RT 11. 11J '’SIE'MRB 11 
j"###".;TRB 11 j " GENINNEN “ 


300 

STOP 




310 

IF S$<Z::‘="1 


THEN 

GOTO 730 

320 

NEX.T Z 




330 

FOR Z=1 TO 

16 



340 

IF S^C-Z)«"" 

III 

THEN 

GOTO 730 

350 

NEXT Z 




360 

FOR Z«1 TO 

15 



370 

FOR J=Z+1 TO 

16 


380 

IF S$‘r.Z)=”. 

II 

RND 

s^-r. J>="« " 

THEN 

GOSUB 830 




390 

NEXT J 




400 

NEXT Z 




410 

FOR Z=1 TO 

15 



420 

FOR J=Z+1 TO 

16 


430 

IF S$<Z:‘="" 

II 

RND 

S$< ” 

THEN 

GOSUB 830 




440 

NEXT .J 




450 

NEXT Z 




460 

FOR Z=1 TO 

16 



470 

FOR J=1 TO 

16 



480 

IF S$<Z)=V 

II 

RND 

S$( J)="#" 

THEN 

GOTO 620 




490 

NEXT J 




500 

NEXT Z 




510 

LET R=0 




520 

LET R=R+1 




530 

IF R=24 THEN 

STOP 

540 

LET ri=ri+i 




550 

IF 8/8=INT 

< R/S ) 

THEN LET M 

=ri+8 





560 

IF N>25 THEN 

LET 

ri=M-24 

570 

IF ri«9 THEH 

1 LET ri 

1=1 

580 

IF M=17 THEN 

LET 

ri=9 

590 

IF M=25 THEN 

LET 

M=17 

£.00 

IF rwr-DO" 

#" 

THEN GOSUB 52 

0 





610 

GOTO 170 
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620 LET R*="" 

630 FÜR K=1 TG 3 
640 FÜR L-1 TO 3 
650 IF L$'::Z.K::'=L$':: J.L> THEN LET 

r$=l$<2..k:' 

660 HEXT L 
670 HEXT K 

680 IF R<i="‘' THEN GOTO 490 
690 FOR K=1 TO 3 
700 IF R$=L$<J.K> THEN NEXT K 
710 LET M=CODE L$<J.K> 

720 GOTO 170 
730 FOR K=1 TO 3 
740 IF rWCODE L$< 2. K )><>'•#" TH 
EN NEXT K 

750 LET M=CODE L^<.Z,K‘> 

760 IF S$C2><>'’8i" THEN GOTO 170 
770 LET K=189 
780 GOSUB 1000 

800 PRINT RT 11.. 11; "ICH‘';TRB 11 
■'###".;TRB 11; "GENINNE " 

820 STOP 

030 FOR K«1 TO 3 
840 FOR L=1 TO 3 
850 IF L$<2.K>=L$C J.L::' RND 11$-:. C 
ODE LJUC 2.. K >)="#" THEN GOTO 750 
860 NEXT L 
870 NEXT K 
880 RETURN 

1000 PRINT RT CODE BSCM).CODE C$ 
<n>;CHR« K;"#“ 

1010 RETURN 
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fcj^ «J^ >J^ %X^ 

^Ii ^4^ ^Ii ^4i ^li lii ^4^ 1^ i4^ 

Peek und Poke 

^1# ^ji# ^i/* ^x^ ^x^ 

^4t 


D ie Befehle PEEK und POKE scheinen komplizierter 
als sie sind. Die folgende Erkldmng ist etwas verein¬ 
facht und unkomplett, aber sollte Ihnen genug sagen, 
um diese beiden Befehle anwenden und etwas da¬ 
rüber nachdenken zu können. 

Stellen Sie sich vor, daß der denkende Teil des ZX81 
nicht größer als eine Zündholzschachtel ist. Jede dieser 
Zündholzschachteln hat eine Nummer, sodoß wir 
jederzeit in die Zündholzschachtel hineinsehen kön¬ 
nen (PEEK), um zu sehen, was sich darin befindet, oder 
wir können etwas hineinlegen (POKE). 

In der komplizierten Welt der Computer wird die Zahl, 
die auf der Seite der Zündholzschachtel geschrieben 
steht, Adresse genannt, wenn wir also sehen wollen, 
was sich in einer Zündholzschachtel befindet, dann 
PEEKEN wir in die Adresse. Wenn Sie etwas in die 
Schachtel hineinlegen wollen, dann POKEN Sie etwas 
in die Adresse. 

Weil der ZX81 mit Zahlen arbeitet, ist das, was sich in 
der Zündholzschachtel befindet (d.h. in oder auf jeder 
Adresse), eine Zahl. Wir können Zahlen hinein PO¬ 
KEN und wenn wir eine Adresse PEEKEN, dann be¬ 
kommen wir eine Zahl. 

Jeder Teil des Programmes hat eine Adresse und wir 
können Teile des Programmes ändern, indem wir 
Dinge in die entsprechende Adresse POKEN. 
Versuchen Sie das folgende Programm einzugeben, 
lassen Sie es laufen und betrachten Sie dann das REM- 
Statement in Zeile 10. 

10 REM HRfl 
20 LET R=ie514 
30 LET B=16515 
40 LET C=16316 

50 INPUT D D muß größer als 2 und 

60 POKE R.D kleiner als 60 sein. 

70 POKE B..D-1 
80 POKE C,D+1 
90 LIST 


Nachdem Sie das laufen gelassen haben, werden Sie 
feststellen, daß sich das AAA in Zeile 10 geändert hat. 
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weil die Zeilen 60 bis 80 Neuiniormationen in diese 
Adressen GEPOKT haben (16514 16515,16516). 

Adresse 16514 ist die erste Adresse nach dem Wort REM 
in der ersten Zeile eines Programmes. Es hat einen 
großen Vorteil, Zahlen in REM-Statement zu speichern 
— sie sind nicht verloren, wenn RUN oder CLEAR be¬ 
nutzt wird, während normal belegte Variablen (so wie 
LET X=3) in diesem Fall verloren sind. 

Im nächsten Programm, bei dem Sie eine Zahl, die 
sich der ZX81 ausgedacht hat, erraten müssen, ist die 
Geheimnummer des ZX81 in der Adresse 16514 gespei¬ 
chert. Ihr Tip wird in 16515 und die Anzahl der Versuche, 
die Sie gebraucht haben, in 16516 behalten. 

Geben Sie es ein, lassen Sie es einige Male lauten 
und versuchen Sie zu verstehen, wie das Programm 
arbeitet. 

10 REN RRR 

20 POKE 16514. INT «T. RHD‘4:59 H2 

30 POKE 16516.0 

40 LET R=16514 

50 LET B=16515 

60 LET 0=16516 

70 POKE C.PEEK C+l 

80 PRINT "GEBEN SIE VERÜCH NR. 

";PEEK C;"#EIN" 

80 INPUT D 
100 POKE B.D 

110 IF PEEK B<PEEK R THEN GOTO 
170 

120 IF PEEK B<PEEK R'THEN PRINT 
PEEK B.!"#IST zu KLEIN" 

130 IF PEEK B>PEEK R THEN PRINT 
PEEK B.i"#IST ZU GROSS" 

140 IF PEEK C<11 THEN RUN 40 
150 PRINT "DIE ZEIT IST VORBEI" 

160 GOTO 180 

170 PRINT "SIE SCHRFFTEN ES IN# 

";PEEK C;"#VERSUCHEN" 

180 PRINT "ICH DROHTE RN#".; PEEK 
R 
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-Dame- 

Das nächste Kapitel erlaubt es Ihnen, ein komplettes 
Damespiel zu entwickeln. Der wichtigste Grund, wa- 
mm es ins Buch autgenommen wurde, ist, daß ich da¬ 
ran eine Methode, Spielbretter für Brettspiele so zu 
numerieren, daß der Computer leicht damit arbeiten 
kann demonstriere. Ein ähnliches Numerierungssystem 
kann als Kern eines Schach- oder Mühleprogramms 
verwendet werden. Ich ersuche Sie dringend, den Text 
sorgfältig durchzuarbeiten, und die Programme wie 
aufgelistet einzugeben. Wenn Sie dies tun, werden Sie 
eine Menge lernen, das Sie gebrauchen können, 
wenn Sie Ihre eigenen Brettspiele schreiben. Sie haben 
wenig davon, wenn Sie nur das endgültige Dame¬ 
programm ohne die vorhergegangenen Schritte 
eingeben. 

—Das Numerierungssystem— 

Die normale Art, ein Damebrett zu numerien, ist, die 
weißen Quadrate von 1 bis 32 abzuzählen (eigentlich 
würden die schwarzen Quadrate gezählt, aber hier 
werden die weißen verwendet, weil das im Zusam¬ 
menhang mit dem Computer einfacher ist). Doch 
diese Numeriemngsmethode erzeugt ein Problem, 
wenn wir versuchen, einen Zug durch die Differenz 
zwischen zwei diagonal aneinanderliegenden Qua¬ 
draten zu definieren. In der einen Richtung kann der 
Unterschied zwischen den Quadraten drei oder vier 
sein, und in der anderen Richtung vier oder fünf. Es 
gibt also keine »freien« Zahlen, die anzeigen, wo der 
Rand des Spielbrettes beginnt. Es schrieb ein Mann 
mit Namen A.L. Samuels um 1960 einen Artikel für 
Scientific American (siehe Strachey, Christopher »Sys¬ 
tems Analysis and Programming« in Teilen von Scien¬ 
tific American, W.H. Freeman and Co., San Francisco, 
1971), in dem er ein cleveres Numeriemngssystem er¬ 
fand, wobei die Differenz zwischen diagonal aufein- 
anderstoßenden Quadraten jeweils' vier und fünf 
(oder minus vier und minus fünO ist. Es erlaubte auch, 
Feldern Nummern zuzuordnen, die sich nicht mehr auf 
dem Spielplan befanden. Ich habe dieses Numerie¬ 
rungssystem etwas geändert, um es für den ZXei 
passender zu machen und in meinem System ist die 
Differenz zwischen Quadraten jeweils sechs oder 
sieben (oder minus sechs und minus sieben). Mein 
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System stellt ganz einfach ein Array mit 82 Elementen 
auf und ordnet bestimmten Elementen des Arrays 
bestimmte Quadrate des Spielfeldes zu. Alle anderen 
faßt der Computer als vom Brett entfernt auf. 

In diesem Programm ordnet der ZX81 jedem Feld die 
Zahl 9, einem leeren Quadrat die Zahl 0, einem Spiel¬ 
stein des Computers den Wert 1 (einer Dame des Com¬ 
puters den Wert 2), einem Spielstein des Spielers minus 
1 und einer Dame des Spielers minus 2 zu. Das hört 
sich etwas kompliziert an, aber halten Sie mit mir 
durch und alles wird (hoffentlich) klar werden. 



Hier ist mein numeriertes Spielfeld. Sie können sehen, 
daß wenn Sie von der oberen rechten Ecke (69) zum 
Quadrat schräg darunter ziehen, die Differenz zwi¬ 
schen den beiden Quadraten minus 6 beträgt. Wählen 
Sie nun irgend ein anderes Quadrat auf dem Spiel¬ 
feld, von dem Sie hinunter und nach links ziehen 
können, und Sie werden sehen, daß sich jeweils eine 
Differenz von minus 6 zwischen den beiden Quadra¬ 
ten ergibt. Der Computer kann relativ leicht mit der¬ 
artig vorhersehbaren Ergebnissen arbeiten. Fahren Sie 
in die andere Richtung, also hinauf und nach links, 
und Sie werden zwischen den beiden Quadraten 
eine Differenz von minus 7 feststellen. In der ersten 
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Version von Dame werden wir wirklich auf dem hier 
abgedruckten Spielfeld spielen, also sollten Sie besser 
anfangen, eine größere Anzahl von kleinen Knöpfen 
oder ähnlichen als Spielsteine verwendbaren Dingen 
zu suchen. 

Das Programm besteht aus zwei Teilen. Der erste stellt 
das Spielfeld auf (die Subroutine, die bei Zeile 90 0 0 
beginnt) und der zweite (10 bis 370) spielt das Spiel. Ih¬ 
re Spielsteine beginnen im unteren Teil des gedmck- 
ten Spielfeldes (auf den niedrigen Zahlen) und die des 
ZX81 im oberen Teil. Sie plazieren Ihre Steine und die 
des ZX81 auf dem Spielfeld und drücken RUN. Der ZX81 
ordnet die Werte der Elemente dem Array im FAST¬ 
MODE zu und geht dann in den SLOW-MODE, um das 
Spiel zu spielen. Er spielt sogar im SLOW-MODE bemer¬ 
kenswert schnell. Aber wenn Sie gerne noch schneller 
spielen wollen, lassen Sie Zeile 5 im Moment aus, ob¬ 
wohl Sie SLOW später brauchen werden, wenn der 
ZX81 ein Spielfeld ausdmckt. Die Züge des ZX81 werden 
durch zwei Nummern angegeben. Die erste ist das 
Quadrat von dem er, die zweite auf das er zieht. Bewe¬ 
gen Sie zuerst seinen Stein auf dem Spielbrett und ent¬ 
scheiden Sie dann über Ihren Zug. Ziehen Sie Ihren 
Stein, bevor Sie den Zug eingeben (dies tun Sie, indem 
Sie die Zahl des Feldes, von dem Sie ziehen, NEWLINE 
und dann die Zahl des Feldes, auf das Sie ziehen, ein¬ 
geben), weil Sie sonst Ihren Zug vergessen könnten. Im 
FAST-MODE kann der ZX81 manchmal eine Entschei¬ 
dung so schnell treffen, daß Sie Ihren Finger noch nicht 
von der NEWLINE-Taste weggenommen haben, ehe 
der ZX81 seine Entscheidung gemacht und ousge- 
dmckt hat. 

In diesem Programm stellt der ZX81 die Damen auto¬ 
matisch auf (seine Damen werden in Zeile 40, Ihre in 
Zeile 10 0 aufgestellt) und er verwendet seine Damen 
mit dem größtmöglichen Effekt trotz der Tatsache, daß 
die einzige Strategie für den Gebrauch der Damen in 
Zeile 65 (die seine Damen auf den Feldern 24 bis 53 zie¬ 
hen läßt) stehen. Beachten Sie, daß in diesem Pro¬ 
gramm mehrfache Sprünge weder vom ZX81 noch von 
Ihnen vorgesehen sind. Das Programm wurde absicht¬ 
lich unvollständig gelassen, sodoß Sie daran arbeiten 
können, nachdem Sie das Material, das in diesem Ka¬ 
pitel präsentiert wurde, verstanden haben. Am Ende 
finden Sie eine Anzahl von Vorschlägen für Verbesse¬ 
rungen, damnter auch den Einbau von Mehrfach¬ 
sprüngen. 

Hier ist der erste Teil des Programmes, der Teil, der die 
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Grundposition aufstellt. Er erzeugt ein Array (DIM A 
(82)) und füllt es dann mit Zahlen, die die Spielsteine 
(1 und minus 1), leere Spielfelder (0) und Spielfelder 
außerhalb des Spielfeldes (9) repräsentieren. 

1 GOSÜB 9000 
5 SLOW 
10 STOP 
9000 FRST 
9010 Din 
9020 DIM yX2‘> 

9030 LET X<:i)=~6 
9040 LET 

9050 FOR Z=1 TO 82 
9060 LET R<2>=9 

9070 IF Z<73 RND Z>55 RWD NOT <Z 
«67 OR Z=68 OR Z=60 OR Z=61 OR Z 
«62 > THEN LET R<Z>«1 
9080 IF Z<54 RND 2>42 RND NOT CZ 
«47 OR Z=48 OR Z«49 > THEN LET R-r. 

Z >^0 

9090 IF Z<41 RND Z>23 RND NOT <Z 
«34 OR Z=35 OR Z«=36 OR Z=2e OR Z 
«29) THEN LET R<Z:'=-1 
9100 NEXT Z 

9110 LET R$="MEIN ZUG#” 

9120 LET B$=”IHR ZUG?" 

9130 RETURN 

überprüfen Sie, ob dieses Programm richtig arbeitet, 
bevor Sie weitergehen. Fügen Sie 80 0 0 STOP hinzu 
und lassen Sie das Programm dann lauten. Wenn das 
Programm stoppt, lassen Sie den ZX81 folgendes aus- 
dmcken, um sicher sein zu können, daß er die Werte 
richtig zugeordnet hat. Die richtige Antwort steht in 
Klammern nach dem Befehl. 

PRINT A (23) (9) PRINT A (38) (-1) 

PRINT A (54) (9) PRINT A (51) (0) 

PRINT A (64) (1) PRINT A (73) (9) 

Wenn das zufriedenstellend funktioniert, SAVEn Sie es 
einige Male (nur für den Fall, daß Sie das Programm 
später verlieren) und geben Sie dann den folgenden 
Teil ein, der das eigentliche Spiel spielt. 

10 LET Q=0 
20 FOR Z=24 TO 72 
30 IF HOT <Rf.Z>=l OR fl^Z)=2) T 
HEH GOTO 100 

40 IF R<Z:'=1 RHD Z>23 RND 2<2S 
THEN LET R< Z'.«Z 
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50 FOR X=1 TO 2 
60 IF R>r.Z+X<X>><0 RND RC Z+2:*:X< 
X::'>=0 THEN LET Q«X<X> 

65 IF Z>55 THEN GOTO 80 
70 IF R-::Z)=2 RND R<Z-X<X)><0 R 
ND R< Z-2:+:X< X > >=0 THEN LET Q=~X'r.X 
) 

80 IF NOT Q=«0 THEN GOTO 120 
90 NEXT X 

100 IF R<Z>=~1 RND Z>68 RND Z<7 
3 THEN LET R<Z>=-2 
105 NEXT Z 

110 IF Q=0 THEN GOTO 160 

120 LET R<Z+Q)«0 

130 LET R< Z+2‘4:Q Z > 

140 LET B<.zy^rö 
150 PRINT R$;Z.2+2‘4:Q 
155 GOTO 320 
160 LET Y=0 

170 LET 2=24+INT < RND:*:4S > 

180 LET V=Y+1 

190 IF Y<100 RND NOT <R-::2>=1 OR 

R«::z::'=2> THEN GOTO 170 

200 FOR X=1 TO 2 

210 IF Rc: Z+X«: X > >=0 THEN LET Q=X 

rx> 

220 IF R<Z>=2 RND R«r. Z-X< X > >=0 T 
HEN LET Q«-X<X> 

230 IF NOT Q=0 THEN GOTO 290 
240 NEXT X 

260 IF Y<100 THEN GOTO 170 
270 PRINT "SIE HFIBEN GEWONNEN” 
280 STOP 

290 LET R<Z+Q>=R(Z> 

300 LET R(Z>=0 
310 PRINT R$;Z..Z+Q 
320 PRINT B$ 

325 INPUT R 
330 INPUT B 
335 CLS 

340 LET R(B>=RCR> 

350 LET R'::r>=0 

360 IF RBS <R-S>>7 THEN LET R«: R 
+':iNT <-r. B-R V2 > > >=0 
370 GOTO 10 


Spielen Sie eine komplette Partie mit dem ZX81 und 
verwenden Sie kleine Knöpfe auf dem gedruckten 
Spielplaa kommen Sie dann wieder zum Buch zu¬ 
rück, und wir werden das Programm Zeile für Zeile 
durchgehen, um zu erklären, wie es arbeitet. 

Zeile 10 stellt die Variable Q als Indikator (oder »Flag«) 
auf, um zu zeigen, daß noch kein Zug gemacht wurde. 
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Wenn eine Zugentscheidung getällt wurde, ändert sich 
Q aut einen Wert, der nicht 0 ist. Zeile 20 startet die 
Schleife, die jedes Quadrat des Spielbretts überprüft, 
um zu kontrollieren, ob Beute gemacht werden kann. 
Zeile 30 checkt, ob das überprüfte Quadrat (genau¬ 
genommen das Element des Array) ein ZX81-Spiel- 
stein (1) oder eine ZX81-Dame (2) ist. Trifft das nicht zu, 
verschwendet der Computer keine Zeit darauf, die 
Logikbefehle zu durchlaufen und springt auf Zeile 
100. Bei Zeile 10 0 überprüft er, ob ein Spielstein des 
Spielers (minus 1) auf der Damelinie steht, und wenn 
das der Fall ist, ändert er den Spielstein in eine Dame 
(minus 2). 

Wenn der Computer entdeckt, daß der Stein über den 
er nachdenkt, einer seiner eigenen ist, überprüft er (in 
Zeile 40), ob er nicht in eine Dame (also von 1 auf 2) ge¬ 
ändert werden sollte. Als nächstes geht er durch die X- 
Schleife, prüft nach, ob das Feld damnter und links (mi¬ 
nus 6) kleiner als 0 ist (ist es das, beinhaltet das Qua¬ 
drat einen Stein des Spielers) und ob das Quadrat in 
der doppelten Entfernung (also minus 12) ein leeres 
Quadrat ist. Wenn diese beiden Bedingungen wahr 
sind, setzt er den Beuteindikator (Q) auf minus 6. Zeile 65 
läßt den Stein, wenn er eine Dame ist, nicht weiter hin¬ 
auswandern, als auf Feld 55 (wie schon vorher bespro¬ 
chen, als wir über die Strategie der Dame sprachen), 
ln Zeile 70 macht er eine ähnliche Kontrolle wie in Zei¬ 
le 60, mit dem Unterschied, daß er dieses Mal über¬ 
prüft, ob die Dame (2) einen Beutezug nach rückwärts 
machen kann. Sie werden bemerken, wenn Sie auf 
den numerierten Spielplan sehen, daß die legalen 
Damezüge des ZX81 plus 6 und plus 7 sind, also sucht 
diese Zeile einen Stein des Spielers auf dem Feld plus 6 
und überprüft, ob das Quadrat darunter (plus 12) frei ist. 
Trifft das zu, wird der Beuteindikator auf plus sechs ge¬ 
setzt (tatsächlich wird er auf minus 7 (auf X) gesetzt, was 
aber den gleichen Effekt hat). 

Wenn der ZX81 in Zeile 80 Q auf Null findet, weiß er, 
daß er nicht die Entscheidung getroffen hat, einen 
Stein zu schlagen. Sollte Q nicht Null sein, springt er auf 
Zeile 120, um nach der Entscheidung zu handeln. Bei 
Zeile 90 ackert er mit dem zweiten Wert (minus 7) von 
X (X) durch die X-Schleife. Zeile 105 führt die Suche 
durch die Z-Schleife weiter und überprüft jedes Qua¬ 
drat, um sicher zu sein, daß kein möglicher Fang aus¬ 
gelassen wurde. 

Wenn Q immer noch Null ist, wenn der ZX81 zu Zeile 110 
kommt, er also weiß, daß es keinen möglichen Fang 
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caif dem Spielfeld gibt, geht er zu Zeile 160 um einen 
zufälligen legalen Zug zu finden. Sollte Q nicht gleich 
Null sein, machen die Zeilen 120,130 und 140 einen 
Beutezug und die Zeile 150 zeigt ihn an. Nachdem der 
ZX81 seinen Zug gemacht hat, geht er zur Zeile 320, um 
auf den Zug des Spielers zu warten. 

Wenn kein legaler Zug gemacht werden konnte, sucht 
der Computer nach einem zufälligen Zug. Der Indikator 

Y (Zeile 160) zählt die Anzahl der gemachten Versu¬ 
che, um einen legalen Zug zu finden (nach jedem Ver¬ 
such wird in Zeile 180 1 zu Y addiert). Wenn nach 99 
Versuchen noch immer kein Zug gefunden wurde, 
(Zeile 260) gibt sich der ZX81 klugerweise geschlagen. 
Zeile 190 kontrolliert, ob auf dem von ihm gewählten 
Feld einer seiner eigenen Steine steht wenn nicht und 

Y kleiner als 10 0 ist geht er zurück, um mit dem Zufalls¬ 
generator ein neues Feld auszusuchen. Nachdem er 
einen eigenen Stein gefunden hat führt er den X- 
Schleifentest (Zeilen 20 0 bis 240) durch, um zu sehen, 
ob er einen legalen Zug durchführen kann, wobei er 
wieder den Indikator Q verwendet um zu überprüfen, 
ob bereits ein Zug gemacht wurde. Die Zeilen 270 und 
280 bekennen, wie schon erwähnt die Niederlage. 
Die Zeilen 290 bis 310 führen den Zug durch und 
drucken ihn für den Spieler aus. 

Der Spieler macht dann seinen Zug (Zeilen 325 und 
330), und der ZX81 handelt danach (Zeilen 340 und 
360), wobei er die etwas komplizierte Zeile 360 ver¬ 
wendet um einen seiner Steine zu entfernen, wenn der 
Zug des Spielers größer als 7 ist. Er weiß, daß ein Zug zu 
einem angrenzenden Feld entweder 6,7, minus 6 oder 
minus 7 sein muß, und ein Zug, der im Wert größer ist 
nur deswegen entstehen kann, weil der Spieler über 
einen Stein des ZX81 gespmngen ist (oder geschummelt 
hat). Der ZX81 nimmt nie an, daß der Spieler schummelt 
(weil er das selbst nicht kann). Also verwendet er die 
Zeile 360, um auszuarbeiten, welches Quadrat zwi¬ 
schen dem Quadrat von dem der Spieler gezogen ist 
und dem Quadrat auf das er zog, lie^, um seinen eige¬ 
nen Stein zu löschen. 

Nachdem Sie den Vorgang verstanden haben, kön¬ 
nen Sie beginnen, das Programm zu verbessern. Ich 
werde Ihnen eine Möglichkeit angeben, ein Schach¬ 
brett auszudrucken (obwohl Sie noch immer auf den 
numerierten Spielplan Bezug nehmen müssen, um Ihre 
Züge einzugeben), die anderen Verbesserungen je¬ 
doch liegen bei Ihnen. Nachdem Sie den Ausdmck 
des Spielfeldes unter Kontrolle haben, könnten Sie ver- 
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suchen, die folgenden Punkte hinzufügen, um das Pro¬ 
gramm in ein echtes Damespiel zu änderni 

1. Fügen Sie mehrfache Sprünge hinzu (das ist relativ 
einfach, weil jeder Mehrfachsprung eine voraus¬ 
sehbare arithmetische Änderung des Startfeldes ist. 
Das Array ist groß genug, um Sie in den meisten 
Fällen davor zu bewahren, während der Suche 
nach mehrfachen Sprüngen herauszuspringen. 
Mehrfache Sprünge des Spielers sind sehr einfach. 
Bringen Sie den ZX81 einfach dazu, »Ist das ein 
mehrfacher Sprung?« zu fragen. 

Wenn ein Stein geschlagen wird (Zeile 360) und 
die Antwort »Ja« ist, lassen Sie ihn zu Zeile 325 zu¬ 
rückspringen, sodoß der zweite Zug eingegeben 
werden kann. 

2. Fügen Sie eine Gesamtwertung hinzu, sodaß der 
Computer nach jeden Zug ausdmckt, wieviele Stei¬ 
ne jeder von Ihnen geschlagen hat. Der ZX81 könn¬ 
te sich dann auch als Sieger deklarieren, wenn er, 
sagen wir, 9 Ihrer Steine geschlagen hat. 

3. Erfinden Sie eine Möglichkeit, die Züge direkt ein¬ 
zugeben, statt auf dem numerierten Spielplan 
nachzusehen. 


Es gibt wahrscheinlich noch weitere Verbesserun¬ 
gen, die gemacht werden können, aber ich glau¬ 
be, daß diese die wichtigsten sind. 
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—Hinzufügen eines Displays— 

Die letzte Verbesserung, die ich Ihnen für das Pro¬ 
gramm gebe, ist eine kleine von Tony Baker ent¬ 
wickelte Routine, die es ermöglicht, ein Spielbrett aus¬ 
zudrucken. 

Löschen Sie Zeile 320, ändern Sie 310 und 150 auf GO- 
SUB 50 00 und geben Sie dann das Folgende ein; 

5000 FOR ri=24 TO 72 
5010 IF fi':ri)=l THEH LET fl<M>=:61 
5020 IF Ra'l)=-1 THEH LET R<M>=52 
5030 IF Rai>=2 THEH LET R<M>=48 
5040 IF THEH LET R<ri>=13 

5050 HEXT M 

5060 PRIHT RT 1.0 j R$j Z.. Z+Q 
5070 PRIHT RT 3.11;B$ 

5080 PRIHT "wmmmmm" 

5090 FOR K=0 TO 3 
5100 FOR .J=0 TO 3 
5110 PRIHT "#'üCHR$ R<72-.J-13-*K> 

.i 

5120 HEXT 
5130 PRIHT "ü" 

5140 FOR ..1=0 TO 3 

5150 PRIHT CHR* RC 66-.J-13*K >.i " " 

,1 

5160 HEXT J 
5170 PRINT "W' 

5180 HEXT K 

5190 PRINT 

5200 FOR ri=24 TO 72 

5210 IF flai>=61 TUEN LET 

5220 IF Rai >=52 THEN LET Rai>=-1 

5230 IF Rai >=48 THEN LET Rai >=2 

5240 IF Rai >=13 THEN LET Rai >=-2 

5250 NEXT ri 

5260 RETURN 


Nachdem alles an seinem Platz ist werden Sie sehen, 
daß sich die Spielsteine tatsächlich bewegen. Ignorie¬ 
ren Sie die Zeile »Mein Zug..«, wenn Sie die gleiche Feld¬ 
nummer zweimal angibt. Warten Sie, bis sie sich geän¬ 
dert hat und beobachten Sie dann die Bewegung des 
Steins des Computers. Wenn der Computer einen Stein 
schlägt, sieht das besonders gut aus. Warten Sie, bis das 
inverse L in der unteren linken Ecke erscheint und ge¬ 
ben Sie dann Ihren Zug ein. 

Beachten Sie, daß die zwei Schleifen (50 0 0 bis 5050 
und 520 0 bis 5250) bestimmen, welches Zeichen 
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welchen Stein bedeutet. Selbstverständlich können Sie 
dies ändern, wenn Sie wollen. Beachten Sie, daß, ge¬ 
nau wie im »echten« Damespiel eine Dame erst nach 
dem Zug, mit dem sie zur Damelinie bewegt wurde, ei¬ 
ne Dame wird. 


-Life 1 und 2- 

Bevor wir zu unserem endgültigen Dameprogramm 
gehen, möchte ich gerne zeigen, wie ein numeriertes 
Gitter, das die gleiche zahlenmäßige Beziehung zwi¬ 
schen aneinanderanstoßenden Quadraten hat, ver¬ 
wendet werden kann, um das Programm LIFE zu pro¬ 
duzieren. 

LIFE wurde von John Conway von der Cambridge Uni- 
versity im Jahre 1970 erfunden. Das Spiel, das die Ge¬ 
burt, das Wachsen und den Tod einer Zellenkolonie si¬ 
muliert, erzeugt faszinierende Effekte. 

Jede Zelle entsteht überlebt oder stirbt nach folgenden 
von Conway aufgestellten Regeln; 

* Jede Zelle des Gitters (das in unserem Fall auf der 
Außenseite eines Zylinders gezeichnet ist) hat 
acht mögliche Nachbarn. 

* Jede Zelle mit zwei oder drei Nachbarn überlebt 
bis zur nächsten Generation. 

* Gibt es drei und nur drei benachbarte Zellen, ent¬ 
steht eine neue Zelle. 

* Jede Zelle mit vier oder mehr Nachbarn stirbt we¬ 
gen Überbevölkemng. 


1 REM 16K LIFE MIT PLOT 
3 LET G=0 
7 RAND 

10 DIM fl'; 10. 10> 

20 DIM Bk 10.10) 

30 FOR X=2 TO 9 
40 FOR. Y=2 TO 9 

50 IF RND>.55 THEH LET fl';X.Y)= 

1 

60 LET B';X.Y)=FI';.X.Y) 

70 HEXT Y 
80 HEXT X 
90 GOSUB 1000 
95 LET G=G-H 
100 FOR X=2 TO 9 
110 FOR Y=2 TO 9 
120 LET 0=0 
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130 IF THEN LET C= 

C+1 

140 IF R(X~1.Y>-1 THEN LET C=C+ 

1 

150 IF R<X-l/r+l>=l THEN LET C= 
C-+-1 

160 IF R<X.Y-1 ::-==l THEN LET C=C+ 

1 

170 IF R<X.Y+i:..= l THEN LET C=C+ 

1 

180 IF R<X+1,Y-1 ::.-l THEN LET C= 
C+1 

190 IF RCX+I/t’)^^! THEN LET C=C:+ 

1 

200 IF R<X+1.Y+1 >=«1 THEN LET C== 
C+1 

210 IF R'r.X..Y::'=l RND COS RND C< 
>2 THEN LET BCX.Y^^S 
220 IF fl<X..Y>=0 RND C=3 THEN LE 
T B<x/-r;'«i 
230 NEXT Y 
240 NEXT X 
250 GOTO 90 

1000 PRINT RT 8.0J '» GENERRTION# '*; 
G 

1001 FOR X=1 TO 10 

1002 FOR Y=1 TO 10 


1004 

+11 

IF 

RO..Y>=l 

THEN 

UNPLOT 

X..Y 

1006 

IF 

RT-X/y)«! 

THEN 

PLOT X+11. 

Y+11 






1010 

1 

1012 

IF 

RO.Y::«0 

THEN 

PLOT X.. 

Y+1 

IF 

RCX.. Y)=:0 

THEN 

UNPLOT 

X+1 

1.. Y+11 





1015 

LET R(X..Y>=I 

S<X,Y> 


1020 

IF 

R<X..Y>=1 

THEN 

UNPLOT 

X.. Y 

1025 

Y 

1030 

IF 

R<X/-0=1 

THEN 

PLOT X+11. 

IF 

R^X. Y>=0 

THEN 

PLOT X. 

Y 

1035 

1.. Y 

IF 

RO<LY>=0 

THEN 

UNPLOT 

X+1 

1040 

NEXT Y 




1050 

ne:= 

^:;t X 





1060 RETURN 
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1 REM LIFE MIT PRINT RT 
5 LET G=0 
7 RRND 

10 DIM Ra0.10> 

20 DIM BC10.10> 

30 FOR X=:2 TO 9 
40 FOR Y=2 TO 9 

50 IF RND>-45 THEN LET R<X.Y>= 

1 

60 LET 0<X..Y>=R<X.Y*;' 

70 NEXT Y 
Ö0 NEXT X 
90 GOSUB 1000 
95 LET G=G+1 
100 FOR X=2 TO 9 
110 FOR Y=2 TO 9 
120 LET C=0 

130 IF R<X-1.Y-1>=1 THEN LET C= 
C+1 

140 IF R<X-1..Y)==1 THEN LET C=C+ 

1 

150 IF R<X-1..Y+1 ::'=1 THEN LET C= 
C+1 

160 IF R<X..Y-1>=1 THEN LET C=C+ 

1 

170 IF R<X..Y+1>=1 THEN LET C=C+ 

1 

180 IF R<X+1/t’-1>=1 THEN LET C= 
C+1 

190 IF R<X+1.Y::'=1 THEN LET C=C+ 

1 

200 IF RCX+l/r+1 >=1 THEN LET C= 
C+1 

210 IF R'::X.Y>=1 RND COS RND C< 
>2 THEN LET B<X/r>=0 
220 IF R<X..Y>=0 RND C«3 THEN LE 
T BO/r;-«! 

230 NEXT Y 
240 NEXT X 
250 GOTO 90 

1000 PRINT RT 4.13;"ttGENERRTION# 
";G 

1001 FOR X=1 TO 10 

1002 FOR Y=1 TO 10 
1015 LET ROX.Y>=BOL Y::* 

1020 IF R<X..Y>=1 THEN PRINT RT X 
,Y;"O" 

1030 IF R'::X..Y>=«0 THEN PRINT RT X 
.. Y; 

1040 NEXT Y 
1050 NEXT X 
1060 RETURN 
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-Dame- 

Es ist Zeit, wieder zu unserem Damespiel zurückzukeh¬ 
ren, und diesesmal ist es ein »richiges« Damespiel mit 
einer einfachen Methode, Züge einzugeben, der Mög¬ 
lichkeit zu mehrfachen Sprüngen, einer Gesamtwer¬ 
tung und einigen anderen Features. 

Dieses Programm ist im SLOW-MODE sehr eindrucks¬ 
voll, besonders in den frühen Stufen des Spiels. Trotz¬ 
dem kann der ZX81, wenn weniger Steine auf dem Brett 
sind, und der ZX81 länger überlegen muß, bevor er sich 
für einen Zug entscheidet, sehr langsam werden. 
Deshalb könnten Sie es bevorzugen, das gesamte Prö- 
gramm im FAST-MODE laufen zu lassen. Auf jeden Fall 
sollten Sie im Anfangsstadium, während Sie Ihr Pro¬ 
gramm testen, auf FAST schalten, einfach, um Zeit zu 
sparen. 


.5 REM DRME-161< 

10 FFlST 
20 RRND 
30 GOSUB 9000 
50 LET ZIJG=0 
60 GOSUB 7000 
70 SLOW 

1000 IF CslüC 1 ::'="K" THEN GOTO 1010 
1005 F-RINT FIT 16.3.; "IHR LETZTER 
ZUG WFIR NFiCH ".-.0$ 

1010 LET ZUG=0 

1015 PRINT RT 17.4; "NEUER ZUG B 
IJCHST. ..ZRHL::*?" 

1020 INPUT B$ 

1030 PRINT RT 17.14; "VON ".!B$. " 
NRCH? 

1040 INPUT C$ 

1050 PRINT RT 17.26;" "; 

1055 PRINT " BITTE WRRTEN" 
1060 LET Z';:i::'=C0DE B$-.t:10+CODE 8$ 

cz;:- 

1070 LET Z<2::'=C0DE C$:+:10h-CODE 
•:: 2 > 

1080 FOR 1=1 TO 2 
1090 IF ZU >=410 THEN LET Bc; I >=7 
2 

1100 IF ZU >=412 THEN LET BU >=7 
1 

1110 IF ZU >=414 THEN LET BU >=7 
0 

1120 IF ZU >=416 THEN LET BU >=6 
9 

1130 IF ZU >=419 THFN LET EKI >=6 
6 
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1140 

Cj 

IF 

Z-:: I >=421 

THEN 

LET 

EK 1 >=6 

1150 

4 

IF 

Z<. I >=423 

THEN 

LET 

G-r. I >=6 

1160 

IF 

Z-:; I >=425 

THEN 

LET 

B-:; I >=6 

1170 

Q 

IF 

Z'' I >=430 

THEN 

LET 

EK I >=5 

1180 

R 

IF 

Z-:: I >=432 

THEN 

LET 

B<I>=5 

1190 

IF 

Z'' I >=434 

THEN 

LET 

B-r I >=5 

1 200 
6 

IF 

Z<I>=436 

THEN 

LET 

ß< I>=5 

1210 

IF 

Z«:: I >=439 

THEN 

LET 

B-:; I >=5 

1220 

2 

IF 

Z<I>=441 

THEN 

LET 

B<I >=5 

1230 

1 

1240 

0 

IF 

Zc: 1 >=443 

THEN 

LET 

B<1 >=5 

IF 

ZCI>=445 

THEN 

LET 

Bc: I >=5 

1250 

IF 

2:.r I >~:450 

THEN 

LET 

EK I >=4 

t* 

1260 

CT 

IF 

Z-:: I >=452 

THEN 

LET 

B-:: I >=4 

Z) 

1270 

4 

IF 

Z-r I >=454 

THEN 

LET 

EK I >=4 

1280 

Px 

IF 

Z*:: I >=456 

THEN 

LET 

B<I>=4 

1290 

IF 

Z*:; I >=459 

THEN 

LET 

BCI>=4 

ü 

1 300 
9 

IF 

Z*:; I >=461 

THEN 

LET 

B< I >=3 

1310 

o 

IF 

Z( I >=462-! 

THEN 

LET 

B>: I >=3 

C' 

1320 

IF 

Z'r I >~465 

THEN 

LET 

B>: I >=3 

1330 

•■3 

IF 

ZCI>=470 

THEN 

LET 

B«:; I >=3 

1340 

2 

IF 

Z«:: I >=472 

THEN 

LET 

G-:: I >=3 

1350 

1 

1360 

|7| 

IF 

Z-r I >=474 

THEN 

LET 

BCI>=3 

IF 

Z'.: I >=476 

THEN 

LET 

EK I >=3 

1370 

IF 

Z'-! I >=47’’9 

THEN 

LET 

B-:: I >=2 

1380 

6 

IF 

Z':; I >=481 

THEN 

LET 

B<. I >=2 

1390 

IF 

Z-r I >=483 

THEN 

LET 

B'.: I >=2 

1400 

4 

1410 

1420 

IF 2<I';'=485 

NEXT I 

LET ZUG=0 

THEN 

LET 

B-:: I >=2 


1430 LET Fl-:: B-:; 3 ::0=R< BU > ::> 

1440 LET ft'::BU>>=B 

1450 IF RBS ^BU >~-B':2>>>7 THEH L 

ET ZUG=1 

1460 IF RBS (B'.: 1 >-B< 2 >::•>? THEH L 

ET R«:; C B-:: 1 >-i“B':: 2 > >.--2 >=B 

1465 FRST 

1470 GÜSUB 7000 

2000 REM SPRUNG 

2002 LET Q=0 

2004 FÜR Z=6S TG 72 

2005 IF R'::Z>=H THEH LET R-:; Z 
2007 HEXT Z 

2010 FÜR Z^24 TO 72 
2020 IF R<ZK>C FIND R'rZK>K THEN 
GOTO 2110 

2030 IF R<Z;:'=C RND Z>23 RND Z<2S 
THEN LET R*:; Z ::'=K 
2040 GÜSUB 8000 
2080 IF QO0 THEN GOTO 2125 
2110 NEXT 2 
2120 GOTO 2240 
2125 LET FK ZH-2:i^Q >==Fl':; Z > 

2130 LET S=S+1 

2135 LET RciZ+Q^^B 

2145 LET FKZ::'=B 

2150 GÜSUB 7000 

2155 LET Z=Z+2:t:Q 

2160 LET Q=0 

2170 GÜSUB 8000 

2190 IF QO0 THEN GOTO 2125 

2210 GOTO 50 

2235 REM ERRECHNETER ZUG 

2240 FÜR Z=24 TO 72 

2250 IF R':;z::'=9 ÜR R<Z::'=B ÜR R>:: Z 

==H ÜR FMZ>==N THEN GOTO 2385 

2260 FÜR D-1 TÜ 4 

2265 LET U=X< D 

2270 IF Fl':Z+U::'=H RND D>3 THEN GO 
TÜ 2290 

2280 IF < R'-.: Z-HJ >=H ÜR R< Z+U Fi 
ND R-:; Z-U >===8 RND R-:; Z-2:i::U >K THEN 
LET Q=^Z-2:=|::U 

2290 IF Q=0 RND (Rc; Z+U ;:'=H ÜR Rc; Z 
+U>=W> RND R<:Z-U::'=B RND < R*.: Z-24:U 
;:':=K ÜR RC Z-2:i=:U :;'==C THEN LET Q^^Z- 
2:+:U 

2300 IF Q=0 THEN NEXT D 
2305 IF Q=0 THEN NEXT Z 
2310 IF Q=0 THEN GOTO 2348 
2320 LET Fl< Q+X< D > ::'==R-:: Q > 

2330 LET RCQ)=B 
2340 GÜSUB 7000 
2345 GOTO 50 

2347 REM ZUFRELLIGEP ZUG 
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2348 FAST 

2349 LET IT==0 

2350 Din I>::49> 

2355 FÜR TÜ 49 
2360 LET KJ>=jH-23 
2365 NEXT J 

2370 LET N=49 

2373 LET V=1 + INT ( RND:^:N > 

2375 LET Z^KY) 

2380 IF R':;Z>-9 OR ÜR RC Z > 

=H ÜR R*:; Z ;:'==UI TUEN GOTO 2438 
2390 FÜR D==l TÜ 4 
2395 LET D > 

2400 IF R';:Z>==C RND D>2 THEN GÜTÜ 
2430 

2404 IF IT==1 THEN GÜTÜ 2418 
2406 IF R^Z+U^^B RND R-r Z-i“2:+:U 
RND R< ZH-2YU ::'<>N RND R*:; Z+lSJfiSGN 
Ll><>H RND R'::Z+13:+:SGN U K >W RND R 
<Z-1+2 :+:c:RB3 D-2. 5 >>1 >><>H RND R 

(Z-l+Zi+YRBS c:D- 2.5>>1 >K>W THEN 
LET Q=ü 

2408 GÜTÜ 2420 

2410 IF R-:; Z-HJ >=:^B THEN LET Q=1J 
2420 IF QO0 THEN GÜTÜ 2460 
2425 NEXT D 
2430 LET !•:: Y>=K n:> 

2433 LET N==N-1 

2436 IF N:>0 tuen GÜTÜ 2373 

2433 LET IT^IT+1 

2439 IF IT=^1 THEN GüTü 2355 

2440 LET Efti=:="VERLÜREN" 

2450 GÜSIJB 7000 

2460 LET R*:; Z+Q )=:R< 2 > 

2470 LET R'::z;:'=B 
2490 GÜTÜ 50 

7000 REM RLISDRUCK SPIELBRETT 
7010 PRINT RT 16.. 0.:" 

II 

7020 PRINT RT 17.0;“ 

II 

7030 IF 2IJG=1 THEN LET T=T+1 
7090 PRINT PT Z..4i " CQNPIJTER " CH 
R$ ';S+156:j." MENSCH " CHR$ CT+l 
56 > 

7100 PRINT RT 4.S.i ’WIHTl 
7110 PRINT RT 5 .. 8;'S« ; CHR$ R*:! 7 

2 ); '• “ CHR$ R-r 71 “ ; CHR$ R-:; 70 > 

“ '’.iCHR$ R':69>;’'^" 

7120 PR I NT RT 6.. 8“»'• .i CHR$ R-r 66 
“ .J CHR$ R'.: 65 ; CHR$ R'.: 64 > 

“ “.;CHR$ R-:;63>;”® " 

7130 PRINT RT 7..8;''M1 “CHR$ R*:! 5 
9 >; •' “ CHRfIh R< 53 CHRFfi 57 > 





.i " 

7140 PRIHT FIT 8.8i "Ifl» 'CHRfÜ FK ^33 
" j CHR$ FK 52 > J " " .i CHR$ Hf. 51 > 

" ".iCHRTi F|(:50)J" asE" 

7150 f^'RINT FiT 9.Sj"aSfi "jCHRsp flC 4 
6 > i " " J CHR!® Fl'; 45 > i " " ; CHRsp RiT 44 > 
.i " "jchr« 

7160 PRINT RT 10.8; "ÜB»" ^ CHR$ RC4 
0 ':>i " " J CHR$ Ff; 39 >; " "; CHR$ R'; 38 ) 
.i" ";CHR$ fl':;37:Jj" SS" 

7170 PRINT RT ll..Sj"aBS " j CHR? fl'; 
33 > ;i " " i CHR$ R'; 32 >" " ; CHRsH R'; 31 
:n" ",iCHR$ fl';30>,'"BäH" 

7180 PR INT RT 1 £. 8 .i "IS«!’' J CHR$ R'; 2 
7::';" ".iCHR* Fl';26>.:" "CHRJfi R';25::' 
.1" "jCHReR R';:24>j" 

7190 PRINT RT 13.. 8 j 

It 

7210 IF Erl^::=:"VERLOREN" THEN PRINT 
RT 17.. 7; " ICH GEBE DRS SPIEL RUF 

II 

7220 IF E$="VERLOREN" THEN STOP 
7230 IF S>==12 THEN PRINT RT 17.. 1 
2.i " ICH HRBE GENONNEN " 

7240 IF T>-^12 THEN PRINT RT 17.. 1 

0;" SIE HRBEN GENONNEN" 

7250 IF T>=:12 OR 3>=12 THEN STOP 

7260 LET IJ.$="" 

7265 IF ZIJG=1 THEN SLON 
7270 IF ZIJG=1 THEN PRINT RT 15.. 0 
.: " KOENNEN SIE NOCHEINMHL "" SPRIN 
GEN J.- N>?" 

7280 IF ZIJG=1 THEN INPUT 0$ 

7290 PRINT RT 15.0.i" 

11 ^ II II 

7300 LET ZIJG=0 

7305 IF THEN FRST 

7310 IF THEN GOTO 1000 

7320 RETURN 

8000 FOR D=1 TO 4 

8005 LET U^Xa;-::' 

8010 IF R'ÜZ ;:'<>!< RND D>2 T!^EN GOT 
0 3050 

8020 IF R( Z-HJ >=H OR R-r Z+U ;:'=U > R 
ND ■ R-:; Z+24:IJ ::-=B THEN LET Q=U 
8030 IF QO0 THEN GOTO 8050 
8040 NEXT D 
8050 RETURN 
9000 DIM RUOO) 

9005 LET V=0 
9010 DIM X'::4> 

9020 LET X<1>=-6 
9030 LET X'::2>=-7 
9040 LET X'::3::'=6 
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9050 LET 
9060 LET hN189 
9070 LET C==180 
9080 LET N=1S8 
9090 LET H:>176 
9100 LET B===128 
9105 LET 

9110 F~ÜR Z^=l TG 100 
9180 LET R';:z::'=^9 

9130 IF Z<?3 RND Z>55 RND Z067 
RND Z068 RND Z<>60 RND Z061 RN 
D Z062 THEN LET R-:! Z ::-=:=C 
9140 IF Z<54 RND Z>4Z RND Z047 
RND Z048 RND Z049 THEN LET R( Z 

9150 IF Z<41 RND Z>23 RND Z034 

RND Z035 RND Z036 RND Z028 RN 

D Z029 THEN LET R>:: Z >=H 

9160 NENT Z 

9170 LET 

9180 LET 8=0 

9190 LET T==::0 

9210 DIM B$(2;:- 

9220 DIM C$C2> 

9225 LET ChF;.:: 1 >:="K" 

9230 DIM Z<2> 

9240 DIM B';;2;:' 

9300 PRINT RT 10.. 4; "HOLLEN SIE B 
EG INNEN J.--N::-?" 

9305 SLÜH 
9310 INPIJT M 
9315 ERST 
9320 CLS 

9330 IF THEN RETURN 

9335 LET ZUG^0 

9340 GÜSUB 7000 

9350 LET Z^=57'i'-INT RND^:3 ) 

9360 LET Q:===-7“i'INT 
9370 LET R-r Zh-Q >=== 1 :: 

9380 LET R-;;z::'=B 
9390 RETURN 


Wenn Sie die Arbeit, das DAME-Programm einzuge¬ 
ben, ermattet hat, können Sie sich nun mit einigen von 
Alastair Gourlay — einem Mitglied des ZX-Anwender- 
Clubs in Schottland — geschriebenen IK Spielen erho¬ 
len 
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-Türme von Hanoi- 

In diesem Spiel müssen Sie versuchen, fünf Ringe von 
Turm eins (Spitze) auf Turm drei (Fuß) zu transferieren. 
Wenn Sie einmal versuchen sollten, einen Ring auf ei¬ 
nen kleineren zu legen, verlieren Sie das Spiel. 

Am Bildschirm wird ständig die Anzahl der Züge, die 
Sie gemacht haben, angezeigt. 


10 

DIM fl$(3.6) 


20 

DIM R<3> 


30 

LET T=0 


40 

LET 1>-"54321-" 


50 

LET R^CE)«"-" 


60 

LET R«-'3 >=R$'r. 2 > 


70 

LET RC1>=5 


.90 

PRINT "ZUG NR.";T 


90 

PRINT 


100 

FOR R=1 TO 3 


110 

PRINT fl$<fl> 


120 

PRINT 


130 

NEXT R 


140 

IF R$C3>="54321-" THEN GOTO 

290 



150 

PRINT "VON" 


160 

INPUT R 


170 

PRINT R 


180 

PRINT "NRCH" 


190 

INPUT B 


200 

LET T=T+1 


210 

CLS 


220 

LET rc:b>=r<b>+i 


230 

LET R$':;B.R':B>::'-R$<R 

. RC R > > 

240 

LET R$<R.R<FI >>="-" 


250 

LET R<R>=RCfl>~l 


260 

IF R<B><2 THEN GOTO 

80 

270 

IF R$<B..R<B)>>R$'r.B.I 

RCB)-! > 

THEN 

GOTO 350 


280 

GOTO 80 


290 

PRINT 


300 

PRINT "SIE HRBEN ES 

IN#".;T; 


"ttZUEGEN" 

310 PftiNT 

320 PRINT " GESCHAFFT " 

330 PAUSE 4E4 
340 RUN 
350 PRINT 

360 PRINT " SIE NÖLLEN MICH BETR 
LIEGEN " 

370 PRINT " SIE HABEN VERLOREN " 
380 PRINT 
390 GOTO 330 
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-Blockout- 

In diesem IK Programm verwenden Sie die Tasten 5 
und 8, um den schwarzen Hindernissen auszuweichen 
und das Ziel aut der rechten Seite zu erreichen Wenn 
Sie sich bewegen, hinterlassen Sie eine Spur. Wenn Sie 
sich einsperren, können Sie zurückgehen, und das 
Spiel so vielleicht retten. 

Wenn Sie etwas berühren oder über den Rand fahren, 
werden Sie aut eine Startposition auf der linken Seite 
zurückgesetzt; soferne Sie nicht über den rechten Rand 
hinausgekommen sind (wo die Welt endet). Zwei Ver¬ 
sionen sind angegeben. Nachdem Sie das langsame 
Spiel beherrschen, probieren Sie die schwierigere 
schnelle Version aus. 


20 LET B==INT C! RND*4:8 >:=I^10+1 
30 LET C«INT <.RH0tB:y^.\B+9 
40 FOR n=l TO 8 

60 ne:>=:t r 

70 LET E=0 

80. LET D=PEEK 16396+256-^PEEK 1 
6397 *' 

90 PÜKE C+D.. 151 
100 PÜKE B+D.149 
110 LET fl$=INKEY$ 


Für das schnelle Spiel verwenden Sie: 
120 IF R$="" THEN GOTO 140 


Für das langsame SpieL 

120 IF R$="” THEN GOTO 110 


Folgende Zeilen brauchen Sie für beide Versionen: 


130 LET E=VRL R* 

140 POKE B+D.21 

150 LET B=B~(E=5)+r::E=6)5r.l0-<E=7 
>:*:10+.::E=8> 

160 IF B>79 THEN LET B=71 
170 IF B<1 OR PEEK <D+B)=128 TH 
EN LET B=B-1 

180 IF PEEK <B+D>=118 THEN LET 
0s:E'~“ 1 

190 IF PEEK <0+0>=151 THEN STOP 
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Tür ein noch schwierigeres Spiel fügen Sie folgendes 
f hinzu: 

L 200 FÜR R=1 TO 2 
210 LET E*INT 

220 IF PEEK <E+D::'<>8 THEN GOTO 
100 

230 POKE E+D.128 
240 NEXT R 
250 GOTO 100 


-Salvador- 

Mit diesem Programm können Sie hübsche Bilder auf 
den Bildschirm zeichnen; es ist flexibler, als das ARTIST 
Programm. 

Um den Cursor über den Bildschirm zu führen, zeich¬ 
nend oder weglöschend, verwenden Sie die Tasten 5, 
6,7 und 8. Wenn Sie auf »O« drücken, startet der Cursor 
mit dem Zeichnen, wenn Sie auf »0« drücken, verwan¬ 
delt er sich in einen Radiergummi. 

10 LET X=0 
20 LET V='0 
30 LET B=1 

40 IF IHKEV$<>"" THEN GOTO 40 
50 LET R$= INKEY.* 

60 IF R*="0" THEN LET B=-Ei 
70 UNF'LOT X/Y 
80 PLOT X..Y 

90 IF B=1 THEN UNPLOT X..Y 
100 IF R**"" THEN GOTO 50 
110 LET X=X-<VRL H$=5H<VRL R$= 

S ) 

120 LET Y=Y-<:VflL fl»=6 VRL fl*= 

7.) 

130 IF N<0 THEN LET X=0 
140 IF X>41 THEN LET X=41 
150 IF Y<0 THEN LET Y=0 
160 IF Y>33 THEN LET Y=33 
170 PLOT X..Y 
180 GOTO 50 
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-Bandit- 

Dieses Spiel kostet Sie schwindelerregende $ 5 pro Run¬ 
de. Sie starten mit $ 50. Sie gewinnen mit den Kombi- \, 
nationen 

* die ersten beiden Symbole sind gleich 

* das erste und das letzte Symbol sind gleich 

* alle drei Symbole sind gleich 

einen Geldbetrag, der vom jeweiligen Symbol (dem 
Codezeichen 1 bis 7) abhängt. 

Wenn »HALT« erscheint geben Sie »J« eia um ein Rad 
anzuhaltea anderenfalls geben Sie einen Zwischen¬ 
raum und dann NEWLINE eia um das nächste Spiel zu 
starten. 

10 LET c=50 

20 Din R-rs) 

30 Din B$<3> 

40 LET 

50 PRINT " #BRNDIT# " 

60 PRINT R$ 

70 PRINT R$ 

80 PRINT "l".i 
90 FÜR X==l TO 3 

100 IF B$OC'=”J” THEN GOTO 120 
110 LET R«::X>=INT < RND'^^? >+l 
120 PRINT CHR® 

130 NEXT X 
140 LET B.$="" 

150 PRINT 
160 PRINT m 
170 PRINT R$ 

180 PRINT "#######" 

190 LET C=C>5 
200 IF C:<=0 THEN STOP 
210 IF R-r. 1 ::'=R< 2 ) ÜR R>r. 1 >=RC 3 > T 
HEN LET i::=C+R< 1 y4:5 
220 IF R'r.l>=R'r.2) RND R< 2 >=R'r. 3 > 

THEN LET C«C+R< 1 >:i::8 
230 PRINT 
240 PRINT 

250 IF RND<.3 THEN GOTO 290 

260 IF INKEY$=--"" THEN GOTO 260 

270 CLS 

280 GOTO 50 

290 PRINT 

300 PRINT "HRLTEN" 

310 INPUT B$ 

320 GOTO 270 
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-Dodge City- 

diesem Spiel verwenden Sie die Tasten 1 und 4 um 
den schwarzen Hindernissen. auszuweichea die aut 
Sie zukommen. 

10 POKE 16418.12 
20 FOR X=1 TO 12 
30 PRINT V'jTRB 20jV 
40 HEXT X 
50 LET S=0 

60 LET Q=10 

70 LET Q=Q+UNKEY$==''4‘'INKEY 

$=" 1 " > 

80 SCRÜLL 

90 LET P=PEEK 16396+256:4cPEEK 1 
6397+Q 

100 IF PEEK P<>0 THEN GOTO 150 
110 POKE P.. 10 

120 PRINT flT 11.0.5 VSTRB < INT 
RND:*: 1 8 >+ n ; »Hi" J TRB 20; V" 

130 LET S==S+1 
140 GOTO 70 
150 PRINT S 
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^% ^% #^ ^% 

Umwandeln von 
ZX80-Programmen 
für den ZX81 

^% 

I m allgemeinen ist es sehr einfach, Programme, die 
für den ZX80 mit altem ROM geschrieben wurden, so 
zu ändern, daß sie auf einer Maschine mit neuem ROM 
laufen. Programme, die PEEK und POKE beinhalten 
— besonders in REM-Statements — können allerdings 
einige Probleme verursachen. 

ln vielen Fällen werden Sie feststellen, daß die Pro¬ 
gramme auf einer Maschine mit neuem ROM viel bes¬ 
ser laufen. Das heißt, sie sind wirkungsvoller, wenn sie 
dem Anwender Anweisungen geben, haben bewegli¬ 
che Grafiken oder eine bessere Bildschirmausgabe. 
Allerdings ist das neue ROM mit Plat^ nicht so groß¬ 
zügig, wie es das alte ROM war. Viele IK Programme 
passen mit dem neuen ROM nicht mehr in IK, weil die 
Systemvariablen des neuen ROMs viel mehr von den 
ursprünglichen IK verbrauchen, als sie das bei der 4K 
ROM Maschine tun. 

-Bewegtes Display- 

Wenn Sie ein Programm für das alte ROM in eine Ma¬ 
schine mit neuem ROM eingeben, löschen Sie eine 
Routine, die bewegte Grafiken ermöglicht, völlig. 
Ändern Sie die Zeitziffer, die üblicherweise in der 
GOSUB-Zeile POKE 16414,n (wobei n die Zeitvariable ist) 
angegeben wird. 

In anderen Programmen ist die Zeit als LET T=n defi¬ 
niert. Wenn Sie PAUSE verwenden, setzen Sie diese auf 
n (also PAUSE n), um das effektvollste Display zu erhal¬ 
ten. Erinnern Sie sich daran, daß PAUSE 50 das Display 
für eine Sekunde anhält, PAUSE 25 für eine halbe, PAU¬ 
SE 100 für zwei Sekunden und so weiter. 

Als Regel, welche Ziffer Sie hinter das Wort PAUSE stel¬ 
len sollen, können Sie sich merken, daß je höher die im 
Programm für das alte ROM verv/endete Zahl ist, (bis zu 
und inbegriffen 254), desto kürzer ist die Zeit, während 
der das Display angehalten wird. 
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1 

♦ -Zufallszahlen- 

Hinsichtlich des Speicherplatzes ist es beim neuen 
ROM teurer, eine Zufallszahl zu erzeugen, als beim 
alten. 

Hier sind die zwei Versionen 

ALTES ROM NEUES ROM 

LET J=RND(6) LET J=INT (RND * 6)+1 

Etwas Speicher wird durch die Tatsache gespart, daß 
INT und RND beim neuen ROM durch einen einzigen 
Tastendmck eingegeben werden können und so nur 
je ein Byte besetzen. Trotzdem frißt das Multiplikations¬ 
zeichen und die Addition (die dafür sorgt, daß Sie nicht 
0 als Teil Ihrer Zufallszahlenreihe bekommen) Spei¬ 
cherplatz auf. 

Wenn Sie in einem Programm viele Zufallszahlen in¬ 
nerhalb verschiedener Bereiche generieren müssen, 
könnte es sich lohnen, eine Subroutine der Sorte LET J= 
INT (RND*K)-fl einzubauen, und K jedesmal vor dem 
GOSUB zu belegen. 

Natürlich braucht dies länger, als die Zeile öfter im Pro¬ 
gramm einzubauen, aber wenn die Rechenzeit nicht 
vorrangig wichtig ist (und das ist kaum der Fall, außer 
Sie haben bewegte Grafiken), werden Sie bemerken, 
daß dies Ihnen Zeit beim Programmieren spart und in 
einigen Programmen — wenn Sie in der Subroutine 
mehr tun, als nur Zufallszahlen zu generieren — auch 
Speicherplatz. 

PRINT RND gibt Ihnen eine Zufallszahlensequenz zwi¬ 
schen null und eins an, wenn es in einer ewigen 
Schleife so angeordnet wird; 

10 PRINT RND 
20 PRUSE 40 
30 RUN 

Diese Sequenz kann sehr nützlich sein. Zum Beispiel 
kann die Zeile für das alte ROM 
IF RND(2)=1 THEN ... 

leicht auf die fast identische Zeile des neuen ROM 
IF RND= .5 THEN ... 

geändert werden. Sie können dies auch verwenden, 
um Entscheidungen auf statistischen Gmndlagen zu 
treffen. 

Wenn Sie also wollen, daß ein bestimmter Programm¬ 
zweig ungefähr jedes dritte Mal verfolgt wird, können 
Sie einfach sagen; IF RND= .34 THEN ... 
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-Print dt- 

Es gibt eine nette kleine Routine, die die Zeile POKE 
Y*33+X + 1 + PEEK (16396)+PEEK (16397) 5H256.n verwen¬ 
det, um das Zeichen n beim alten R0M-ZX80 auf die Po¬ 
sition Y,X zu setzen (Y ist die Anzahl der Zeilen von oben 
gezählt, X die Anzahl der Zeichen von der linken Seite 
des Displays aus. Die Maschinen mit neuem ROM tun 
dies automatisch, was auch den Vorteil hat, daß mehr 
als ein Zeichen auf eine Position gesetzt werden kann. 
Ich werde das erklären: 

Beim neuen ROM verwenden Sie PRINT AT in der fol¬ 
genden Weise: Sie müssen zwei Koordinaten, Y (Zeilen 
von oben gezählt) und X (Zeichen von links) angeben. 
Diese werden in einer Zeile wie dieser verwendet, die 
das Wort »ENDE« ungefähr in die Mitte des Bildschirmes 
setzt. 

10 PRINT RT 10,14.i "ENDE" 

Sie trennen die zwei Koordinaten mit einem Komma 
und setzen einen Strichpunkt nach der zweiten Koordi¬ 
nate, vor die Worte, die Sie ausgedmckt haben möch¬ 
ten. 

Die zwei Koordinaten können auch während des Pro¬ 
grammablaufes ausgearbeitet werden, also ist die Zei¬ 
le PRINT AT B,A/3,' »ENDE« gültig. Die Funktion PRINT AT 
führt automatisch die Integerfunktion durch, streicht al¬ 
so alle Kommastellen einer Variablen. 

Wenn Sie also etwas an einer bestimmten Stelle aus- 
dmcken wollen, oder das Gefühl haben, daß ein Pro¬ 
gramm durch die Verwendung von PRINT AT verbes¬ 
sert werden kann (und es kann eine Menge von lee¬ 
ren PRINT-Zeilen oder Schleifen, die Zwischenräume 
auf den Bildschirm dmcken, ersparen), sollten Sie es 
verwenden. Wenn Sie ein Objekt über den Bild¬ 
schirm bewegen wollen, müssen Sie einen PAUSE n - 
Befehl nach den ersten PRINT AT-Befehl setzen und — 
nach der Pause — ein zweites PRINT AT hinzufügen, das 
die vorher bedruckten Positionen wieder löscht. Hier ist 
ein einfaches Beispiel 


10 

LET 


=0 


20 

LET 


=0 


30 

PRINT 

RT 

R..B 

40 

PRUS 

:E 

30 


50 

PRINT 

RT 

R..B 

60 

LET 

R^ 

=R+RND 

70 

LET 


«B+RND 

80 

IF P 

l> 

18 ' 

THEN 
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90 IF B>18 THEN LET B=0 
100 GOTO 30 

Das bewegt ein X zufällig über den Bildschirm (mehr 
oder weniger diagonal). Wenn Sie mit einem ZX81 oder 
einem neuen ROM arbeiten, können Sie das lange PO- 
KE Y*33 ...usw. weglassen, und durch ein einfaches 
PRINT AT ersetzen. 

Das neue ROM hat auch eine TAB-Funktion, die ein 
PRINT-Statement an jedem beliebigen Punkt aus- 
dmcken kann, ohne daß Sie eine Schleife mit leeren 
Zwischenräumen verwenden müssen. 

ALTES ROM NEUES ROM 

10 FOR R=1 TO 10 10 PRIMT TRB 10J"ENDE" 

20 PRINT 
30 NEKT R 
40 PRINT "ENDE" 

Beachten Sie, daß nach der Zahl ein Strichpunkt erfor¬ 
derlich ist, bevor die Zeichen ausgedruckt werden. TAB 
kann durch einen einzigen Tastendmck eingegeben 
werden. 
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-Grafiken- 

Auf Geräten mit neuem ROM sind alle Grafiksymbole 
(damnter inverse Grafiksymbole, inverse Zahlen und 
Buchstaben, sogar ein inverser Zwischenraum) direkt 
von der Tastatur einzugeben. Das spart Ihnen die Ver¬ 
wendung von CHR$ (n) (sollten Sie es trotzdem brau¬ 
chen, wird es Ihnen gefallen, da CHR$ mit einem einzi¬ 
gen Tastendruck eingegeben werden kann). 

Inverse Zeichen können verwendet werden, um Pro¬ 
gramme etwas aufzumotzea' beispielsweise können 
Anleitungen oder Auffordemngen an den Spieler in in¬ 
versen Buchstaben ausgegeben werden. 

Um andere Programme umzuschreiben, verwenden 
Sie die folgende Tabelle, in der zuerst die Position des 
alten und dann des neuen ROM angegeben ist; 


Shift Q 
ShiftW 
Shift E 
Shift R 
Shift T 
Shift A 
Shift S 
Shift D 
Shift F 
Shift G 


Grafikzeichen von 5 
6 
1 
2 
D 
A 
T 

4 
3 

5 


-REM-Stotements, TL$- 

Beim alten ROM ist die erste Adresse nach dem Wort 
REM 16427. Die äquivalente Adresse des neuen ROMs ist 
16514. Sie müssen besonders sorgfältig umrechnen, 
wenn Sie Programme umschreiben, die auf in REM- 
Statements gespeicherten Daten aufbauen. Die TL$- 
Funktion des alten ROM gibt es beim neuen nicht 
mehr, sodaß Antworten des Benutzers, die aus zwei 
oder mehr Zeichen bestehen, und die der Computer 
bearbeitet, indem er Buchstabe für Buchstabe ab¬ 
trennt, durch Anweisungen ersetzt werden müssen, die 
es dem Benutzer erlauben, die Information Buchstabe 
für Buchstabe einzugeben (und dem Computer, damit 
zu arbeiten). Die String-Arrays des neuen ROM können 
als eine Art READ/DATA-Funktion verwendet werden. 
Wenn Sie die Antworten des Benutzers zwei Zeichen 
lang lassen wollen, ist LET A$=A$ (2 TO) beim neuen 
ROM das Entsprechende zu LET A$=TL$ (AS). 
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-INT- 

Als generelle Regel geben Sie die Funktion INT (durch 
einfachen Tastendruck beim neuen ROM erreichbar) 
immer vor einer Division ein. Wenn also im Programm 
für das alte ROM LET F=A/16 steht, sollte die Version für 
das neue ROM LET F= INT (A/16) sein. Das ist nicht not¬ 
wendig, wenn Sie das Ergebnis der Rechnung für 
PRINT AT oder TAB brauchen, da dann die INT- 
Funktion automatisch durchgeführt wird. 
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Umwandlung der 
Systemvariablen: 

^X# sl# %X# %£^ ^x^ ^X^ ^x^ ^x^ ^Xi^ 


ALTES ROM 

16384 

16385 

16386 

16387 

16388 

16389 

16390 

16391 

16392 

16393 

16394 

16395 

16396 

16397 

16398 

16399 

16400 

16401 

16402 

16403 

16404 

16405 

16406 

16407 

16408 

16409 

16410 

16411 

16412 

16413 

16414 

16415 

16416 

16417 

16418 

16419 

16420 

16421 


NEUES ROM 

16384 

16385 

16391 

16392 

existiert nicht 
existiert nicht 

16394 

16395 

16400 

16401 

16404 

16405 

16396 

16397 

existiert nicht 
existiert nicht 

16412 

16413 

16418 

16419 

16420 

16408 

16409 

16427 

16428 

16429 

16432 

16433 

16434 

16435 

16436 

16437 

existiert nicht 
existiert nicht 
existiert nicht 
existiert nicht 
existiert nicht 
existiert nicht 
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16422 

16423 

16424 

16425 

16426 

16427 

16428 

16429 

16430 

16431 

16432 

16433 

16434 

16435 

16436 

16437 

16438 

16439 

16440 

16441 

16442 

16443 

16444 

16445 

16446 

16447 

16448 

16449 

16450 

16451 

16452 

16453 

16454 

16455 

16456 

16457 

16458 

16459 

16460 


16406 

16407 

16509 

16510 

16513 

16514 

16515 

16516 

16517 

16518 

16519 

16520 

16521 

16522 

16523 

16524 

16525 

16526 

16527 

16528 

16529 

16530 

16531 

16532 

16533 

16534 

16535 

16536 

16537 

16538 

16539 

16540 

16541 

16542 

16543 

16544 

16545 

16546 

16547 


Diese Tabelle wurde in erster Linie entwickelt um in 
REM-Statements POKEn und PEEKen zu können. 
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Dieses Buch wurde in der Absicht verlaßt, 
jedem ZX-Fan etwas zu geben. Dem Anfän¬ 
ger wird anhand von unterhaltsamen Pro¬ 
grammen jeder Befehl des ZX 81 anschaulich 
erläutert. Der Fachmann findet eine Vielzahl 
an interessanten Programmen mit originellen 
Problemlösungen. Die Programme reichen 
von einfachen Spielen bis zu komplizierten 
Maschinencode-Programmen. »ZX-Power« 
beinhaltet auch ein Kapitel über die Um¬ 
wandlung von ZX 80 Programmen für den 
ZX 81. Die englische Computerzeitschrift 
»Computinq Today« schrieb über dieses Buch: 
»The book has something for everyone«. Auf 
jeden Fall finden Sie in diesem Buch eine 
Menge Ideen und Tips, die Sie in eigenen 
Programmen verwenden können — und soll¬ 
ten, wenn Sie aus Ihrem ZX das Meiste 
herausholen wollen. 
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Unglaublich, was Alastair Gourlay an 
Spielen und Programmen für den ZX 81 mit 
IK-RAM präsentiert. 

In diesem Buch finden Sie spannende 
Unterhaltung und viele wertvolle Program¬ 
miertips. Lenken Sie geschickt bei einem 
römischen Wa^enrennen die Pferde, 
spekulieren Sie einmal an der Börse ohne 
Haus und Hof zu verlieren, der Computer 
verrät Ihren Biorythmus, oder spielen Sie 
17 und 4, wer gewinnt? Und noch viele 
weitere Spiele nicht nur zum Spielen, 
sondern mit denen man spielen kann. 
Lernen Sie spielend programmieren. Ver¬ 
ändern Sie die Programme und schon 
erhalten Sie Ihr eigenes Programm. 

Faszinierend! 
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ZX-POWER 


Dieses Buch wurde in der Absicht verlaßt, 
jedem ZX-Fan etwas zu geben. Dem Anfän¬ 
ger wird anhand von unterhaltsamen Pro¬ 
grammen jeder Befehl des ZX 81 anschaulich 
erläutert. Der Fachmann findet eine Vielzahl 
an interessanten Programmen mit originellen 
Problemlösungen. Die Programme reichen 
von einfachen Spielen bis zu komplizierten 
Maschinencode-Programmen. »ZX-Power» 
beinhaltet auch ein Kapitel über die Um¬ 
wandlung von ZX 80 Programmen für den 
ZX 81. Die englische Computerzeitschrift 
»Computina Today« schrieb über dieses Buch: 
»The book has somethinq for everyone«. Auf 
jeden Fall finden Sie in diesem Buch eine 
Menge Ideen und Tips, die Sie in eigenen 
Programmen verwenden können — und soll¬ 
ten, wenn Sie aus Ihrem ZX das Meiste 
herausholen wollen. 
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